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DISCOUNTS AVAILABLE 



Note: On any order which you send 

in direct, be sure to include your 
membership number. If you send your 
order to us, make your check payable 
to us. If it says send order to us, 
PLEASE clo not not try to order them 
direct. 

ORDER DIRECT COMPANIES 

Britt Monk, CDP (send for special 
form that you use) 

Computer Island 20% Off on Software 
& $1.00 Off on Book (A Byte of Color 
Basic) 

Dr. Preble's Programs 20% Off on 
all software 

E.A.P. Co. 10% Off on all Software 
Family Computers 

$1 5-$50 Deduct 5%, $50-$100 Deduct 

10%, $100-3150 Deduct 15%, $150 and 

up Deduct 20% 

HARM0NYCS 10% Off on Software 

HAWG WILD Software 10% Discount 
on all products. Except components! 

Leader Sales Corp. 20% Off on Hard- 
ware and 10% Off on Software 

Hawkes Research Services 20% Off 
on GRAFPL0T Program 

MICRO-DOC 15% Off on a Book 

PcLEAR4co. 25% Off on alt products. 



except 


software. 10% 


Off 


on 


Software 


PCLEAR- 


■80 Software 


10% 


Off 


on all 


Software 


8 Joysticks 








S & S 


Arcade Supplies 


20% 


Off on 



all products on the ad in this issue 

Soft Ware Haus 20-25% Off all Software 

Sugar Software 20% Off on all Software 
for the months of JAN/FEB ONLY! 



VIDRAM $1.95 Off of Software Package 
containing Matrix and Roots programs 

Superior Graphic Software 20% Off on 
All products 

Valhalla Enterprises 10% Off on 1 
item, 15% Off on 2 items, 20% Off 
on 4 items, 25% Off on 6+ items. 
Diskette discounts are 10% Off on 10, 
20% Off on 50, and 25% Off on 100+. 

Electronic Specialists, Inc. 10% Off 
on ESP products 

CALCS0FT 10% Off on any order 

~ ’>\“C] K£n<>************><n£-C|][' > \>' ” 

SEND ALL OF THESE ORDERS TO US 



Chromasette Magazine $5.00 Off „on 
Regular Subscription Rates 

Dr. Prebles Programs 25% Off on all 

Software 

Moses Engineering 20% Off on all soft- 
ware 

PXE , Computing 25% Off on AUTOTERM 
Program (Minimum of 4 orders must 
be met before we can send it to them) 

Radio Shack 10% Off on any Radio 

Shack Product except Microcomputer 
News 

the RAINBOW Magazine 10% Off on the 

Regular Subscription Rates 

Rainbow On Tape $5.00 Off on Regular 
Subscription Rates 

Spectral Associates Software Only 
10% Off on orders less than $50 
25% Off on orders more than $50 
(Be sure to include the 3% for Ship- 
ping and Handling) 

Color Micro Journal $4.00 Off their 
regular subscription prices. 
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Secretarial Report 

by Don H. Garrett 

It is nearing the new year and I hope 
the past year has been pleasent for 
you. We have had a pleasant, reward- 
ing, and informative year, to say 
the least. With more companies chang- 
ing their prices, offering discounts, 
acknowledging our presence, and being 
more open to us. We are receiving 
more Articles, Reviews, Programs, 
Products to review, and discounts 
than we have ever received before. 
For example. Adventure International 
just sent us five programs to review. 
Sugar Software raised their discount 
(temporarily, but let's try to make 
it permanent by purchasing their pro- 
grams), we have 120 pages in this 
newsletter, and our newsletter now 
has six regular columns, FLEXside, 
MID$, CoCo Music, Hot New Info in 
the world of Magazines, Depth of 
Field, and Color Computer Clubs & 
BBS's. I do not know how long they 

will continue to be "Regular". 

I have a very disappointing fact, 
and that is that even with 120 pages 

I still did not have enough room to 
put all of the information in it that 
I was going to put in. Such as. Finan- 
cial Report (which the Treasurer said 
is not quite ready). Rumours, 1983 

Reviews, Articles, & Programs list. 
Three programs (by Club members), 
and the DISK Basic CoCo Commands 
by Ron, the President. Look for these 
and more in the next issue. 

Speaking of the next issue, I need 

some more columnists. I need a col- 
umnist for the following column titles: 
0S-9ers and CoCo Kids & Parents. 
The last one may be a little difficult 
to handle, since it wilt take a lot 
of researching. 

Ok, enough about the newsletter, on 
to the voting results. I am sorry 
to say this, but only 1% of the mem- 
bership voted this time. I know that 
the cards said November 10th on them, 
a typesetting mistake, when they were 
supposed to say December 10th. I 
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figured the membership would under- 
stand that they still had a month 
to vote in. Look at all of the past 
vote deadlines. Well, if we ever have 
a typesetting problem again, here 
is the prescribed deadlines for the 
vote cards: 

Issue Voted From Deadlines 



JAN/FEB 

MAR/APR 

MAY/JUNE 

JULY/AUG 

SEPT/OCT 

NOV/DEC 



February 10th 
April 10th 
June 10th 
August 10th 
October 10th 
December 10th 



I will now take time to list some 
of the comments on the vote cards 
this time: My magazines are getting 

here later ^ later , Just what is 
my member # , I send my best wishes 
and heartfelt thanks to those who 
are willing to assume the responsibili- 
ties and put in the hours of work. 
Use "MID$", would cost club addition- 
al money to advertise for other com- 
panies, when is ICCC, Igc. going to 
start acting responsible 0 , I think 
the MEM AFTER RUNNING should be 
a good addition, I have not received 
my , new (renewal) membership packet 
yet . 

Here are the answers to four of the 
above comments. 

1 The magazine arrives to you by 
mail and depending on how fast they 
are is how fast you receive it. How- 
ever, this issue is 2 weeks late be- 
cause of bad weather. 

2 Your membership number is this- 
The Binary equivalent of the 4 digit 
number on your newsletter label. The 
4 digit number is your BBS LOG ON 
num ber. 

3 I think we are acting responsible 
for the amount of people running this 
club, it takes more than just us, 
it takes you, also. 

4 The renewal packets have been here 
waiting on tapes. We just received 
the tapes, so you should receive your 
renewal packet within the month of 
January. 

Well, I will end it here with a Happy 
Valentine's Day and Presidents Days, 



EDITORIAL 

by Ron Garrett 

What's ahead? Everyone is talk- 
ing about what's ahead for CoCo. 
We will talk about what is ahead 
for our club. 

r 

Our Canadian branch seems to be 
doing quite well, and I'm hoping 
that we can open branches of our 
club in England, Australia, Ger- 
many and Japan in 1984. We will 
also try to have a Canadian BBS, 
on line 24hrs a day in 84, & we 
hope to finally get OUR BBS into 
the CompuServe system. We'll be 
reworking our own BBS somewhat 
in order to put the classified 
ad's from the newsletter in the 
merchandise section of the BBS. 
And finally (on the BBS) we are 
looking for ways to speed up the 
mail search routine. Oops, just 
one more thing. (I promise) We 
seem to be having dificulties in 
updating the BBS fast enough, so 
starting in Jan, 84 we will give 
new members a "temporary" log-on 
number & password that they can 
use to access the BBS with until 
we get it updated to their #. We 
will then mail them a permanent 
password and log-on number. 

The club's expenses are still 
running more than our income. It 
seems the main reasons are l.the 
large increase in ad rates by 
the Rainbow and other magazines, 
2. the lack of advertiser supp- 
ort for our own newsletter, & 3. 
we have too many discounts which 
we give the membership, which is 
not given to the club. Therefore 
we are having to reduce the club 
ad in the Rainbow to a half page 
eliminate all other advertising, 
and (sorry about this one) cut 
the discount given on Rainbow to 
10%. In 1984 we will be reducing 
our ad rates to try to atract at 
least a few advertisers. It now 
cost more than $2,000 to print 
the newsletter, and advertisers 
are only paying about 5 to 8% of 



this. You will see a change in 
the "new member kit" in 84 also, 
as we will be removing the cass- 
ette case and replacing it with 
something smaller (another tape, 
perhaps?) so we can mail it out 
in an envelope instead of a box. 
This would allow us to save on 
the container (the box cost $1.) 
and also the postage to send it. 

We have just appointed our parts 
librarian as technical advisor, 
so if you are having a problem 
with your computers hardware, he 
will answer your questions. Call 
after 6PM CST at 214-657-7800 if 
he can't answer your question, I 
will put it in the newsletter so 
someone out there may be able to 
tell you want you want to know. 

Do any of you have a public dom- 
ain program which is not in the 
library? If so, I'm sure Mr. Paul 
Schallowitz would like to hear 
from you. Write and tell him or 
send him a copy of it, 

Continued on Page 120 



1. Since the club advertised through 

June, 1983 that 1/4 page of free ad- 
vertising per issue, of unspecified 
type, was a membership privilege, 
and since this offer might reasonably 
have been interpreted by some to 
include display advertising, it is 
proposed that the 1/4 page free dis- 
play advertising privilege remain 
available to those who enrolled before 
July 1, 1983 until the expiration of 

their current 1-year membership terms. 

A=Yes B=No 

2. Should the club raise the member- 
ship fee to $35. to go monthly with 
the newsletter? If so, would you be 
willing to pay the extra $5 to get 
the newsletter monthly? 

a. A = Yes B=No b. A=Yes B=No 
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Items To Be 
Voted On 



FLEXside 

by Susan Bouchard 

Topics for discussion will be 
broken into four parts: Saving/ 

Storing Data, Disk Prob Lem/So lu- 
tion, FHL FLEX DOS and a few 
capabilities (extras) of FLEX. 



Part I - Saving/Storing Data 

The following is a brief and 
non-technical explanation as to 
the method R/S DOS and FHL FLEX 
DOS saves and stores information 
(in ex. - disk files, programs, 
data, etc.) on the disk. 

Any information stored to disk 
must be able to arrange such in- 
formation in a logical and effi- 
cient manner. The R/S DOS DSKINI 
command does just that! 

When DSKINI is entered, it will 
format the disk. If the disk was 
unformatted, you would be unable 
to store or load information via 
disk. DSKINI sets the disk up, 
telling it where to save such 
information by creating a master 
directory. In effect, the DSKINI 
command is similar to a subrou- 
tine or utility. It creates the 
master DIR, which indicates, 
(indexes) where information will 
be stored on the disk. In short, 
it allows you to save and load 
information in a very efficient 
manner, performing certain func- 
tions automatically. 

Radio Shack DOS saves informa- 
tion in forms of sectors (each 
sector containing 256 of user 
accessible bytes) but STORES the 
information in "chuncks" or 
granules (each granule contain- 
ing 2,044 of user accessible 
bytes). The granule is the smal- 
lest unit of information that 
may be stored to disk by the Op- 
erating System. In the 80-C, the 
granule contains nine sectors 
(2,304 user accessible bytes) or 
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one half of a track. 

The structure, or makings, of 
the RS DOS disk consists of the 
following: 

Bytes = 256 bytes per sector 
Sectors = 9 sectors per granule 
Granules = 2 granules per track 
Tracks = 35 tracks per disk 

(excluding track 17, reserved 
for the directory) 

Directory = Contains informa- 
tion the Operating System 
(system controls) requires to 
catalog and locate files, and 
how much space (bytes) each 
file takes up on the disk. 

Since Track 17 is put aside for 
the DIR, that leaves 34 tracks 
available for your files leaving 
68 granules on the standard 80C. 

The smallest file you can store 
on a disk is one granule (equiv- 
alent to 9 sectors... half of a 
track). If the file you save 
contains 280 bytes, the file 
would use all of the 9 sectors 
or half of the track to store 
the file. Thus, the maximum num- 
ber of files the R/S DOS disk 
could store would be 68 (i.e. - 

68 granules per disk). The above 
method of saving files is a 
waste of disk space and limits 
the number of files you can put 
on the disk. 

FHL FLEX DOS stores information 
on the disk in sectors and has 
no limitations as to the size of 
a file. The file may be as small 
as 1 sector!! 

NEWDISK command in FLEX initial- 
izes a diskette and performs 
various "chores". A FLEX disk is 
capable of storing bytes in sec- 
tors... there being 252 user 
accessible data bytes and about 
612 sectors per SS/DD 35 track 



disk. 

The utilities (commands - .CMD) 
provided with FLEX perform such 
tasks as the saving/ loading, 
copying, renaming, deleting, 
listing, etc., of disk files. 

There is an extensive CATalog 
command in FLEX DOS for examin- 
ing the disk's file directory. 

The CATalog command is used to 
display the FLEX disk file names 
in the directory on each disk. 
Upon entering the proper syntax 
(parameters) the user is able to 
select and display specific 
files on one or all drives. This 
means it would be possible to 
list files with specific file 
names or extensions and also 
able to list such information 
from one or all drives (in ex. - 
list files whose names begin 
with "F" or "FL", list only 
those files whose extensions be- 
gin with "T" or "C" or list 
files whose names start with "F" 
accompanied with the extension 
starting with "T"... the above 
files could then be displayed 
from one or all drives). 

To recap the above, it is safe 
to say FLEX DOS stores data more 
efficiently than R/S DOS. FLEX 
DOS is able to store in sectors, 
thus allowing the user to save 
more than 68 files per disk as 
is the case with R/S DOS. 



Part II - Disk Pr ob l em/ So l u t i on 

The Resistor Array RA-2 (also 
referred to as Terminator Re- 
sistor Pack) is for drive number 
26-3022 only. In the last column 
we discussed how, if you have 
more than one disk drive, drive 
26-3022 should always be placed 
as the last drive in the series. 



year, problems with the drives 
seemed to be getting worse as 
time went on. Upon inspection of 
the drive, it was noticed one 
drive had an extra something the 
'other' drive did not have. If 
you look at drive 0, #26-3022, 
opposite side of the drive belt 
and stepper motor) you will see 
the Terminator Resistor Pack. 
The resistor is white in color 
and located on the lower right 
side of the drive. I'm glad to 
say since placing drive 0 and 1 
in correct order, the problems 
have been eliminated. 



Part III - FHL FLEX DOS 

FHL FLEX consists of three main 
parts - DOS, the File-Management 
System and the Utility Command 
Set. The Utility Command Set was 
discussed in an earlier column. 
We will now focus on the DOS and 
FMS parts of FLEX. 

The File-Management System con- 
trols all files that go to the 
disk. It works hand in hand with 
the DOS and disk drive (in ex. - 
read information from a disk, 
write information to a disk or 
maintain the information in a 
well organized manner). 

The Disk Operating System must 
be able to communicate with the 
systems hardware (i.e.- the key- 
board, display, printer, disk 1/ 
0, etc.), Input/Output routines 
and the FMS. 

I realize the above explanations 
of DOS and FMS parts of FLEX are 
quite brief. Information and the 
understanding of FLEX has been 
difficult for me to grasp. 

If there are readers out there 
that would like to further ex- 
plain the three main parts of 
FHL FLEX, I'd appreciate and 
welcome the help. 



The above discovery occurred 
quite by accident. Earlier this 
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Part IV 



- FHL FLEX Capabilities 

FHL FLEX is capable of running 
high-quality and sophisticated 
software. The software was ori- 
ginally designed and offered 
primarily for computers oriented 
towards business, scientific and 
professional applications, etc.. 
With FLEX being offered to the 
80-C, we can also run this soft- 
ware. Below is a general list of 
software: 

Basic Compilers, 

Business Programs, 

Assemblers and Text Editors, 

Word Processing, 

Machine Language debugging 
programs. 

Disk system diagnostic packages 
and several utilities. 

For a further listing of avail- 
able software see FHL Catalog of 
available hardware & software. 
Also, FLEX supports high level 
languages (Basic 09, Pascal, C, 
Cobol, etc.). FHL FLEX also sup- 
ports the standard 5 1/4" SS/DD 
35 track drives, 5 1/4" DS/DD 35 
track drives as well as 40 track 
drives and 8" drives, either SS/ 
DD 80 tracks or DS/DD 80 track 
drives. 

Support for the R/S DOS has been 
improving and surprisingly meet- 
ing the public's demands. This 
is due primarily to insight on 
the part of various vendors of- 
fering 80-C software. They real- 
ized that the 80-C had a very 
promising future, if appropriate 
software were made available. 
However, please remember that 
FLEX software is universally ac- 
cepted and well established in 
the world of computers and has 
been on the market as early as 
1977. Also, the software is top 
quality and was designed pur- 
posely for professional and non- 
professional applications. 

Enough said for this time... 
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until the next column, enjoy the 
holidays!! 

Sue 

Disk Problem 
Solved !!! 

I shall put forth a theory to explain 
why Susan's #1 drive runs when drive 
#0 is turned off. First, let us look 
at what normally turns the drive mo- 
tors on. Interface connector pin 16 
is the "Drive Motor Enable" signal. 



When 


this 


signal line's 


logic 


-level 


goes 


true 


(low), all of 


the 


drive 


motors 


; are 


turned on, no matter 


which 


drive 


is 


selected. When 


the 


logic 


level 


goes 


false (high). 


the 


drive 


motors 


stop 


• 






When 


drive 


#0 is turned off 


the 


five- 


volt 


power 


supply drops 


to 


zero. 



This results in the "Drive Motor En- 
able" signal going low, turning on 
drive #1. This does not mean that 
you have a problem. 

You need to check your drives, to 
see which one has the "TERMINATOR 
RESISTOR PACK" in it. This pack, 
which is located in a socket designated 
"RA2", should be in the last drive 
on the cable. The rest of your drives 
should not have anything in RA2. 

R A 2-1 4 connects the "DRIVE MOTOR 
ENABLE" line to the 5-volt supply. 
If you turn this drive on first and 
off last you will not have the other 
drive motor(s) on for no reason. 

Sincerely, 

Bobby Joe Harrison 



Correction 

As a user of FLEX and XBASIC, I 
would like to point out that the speed 
comparison between TSC's XBASIC and 
MICROSOFT'S BASIC (Radio Shack) 
was not truely fair in your September/ 
October Newsletter- It's hard to be 

Continued on Page 51 




Saguaro Software 



7331 E. Beverly - Tucson, A Z - 85710 

( 602 ) 885-6508 




Educational 
Software Programs 

Music Reader 26.75 

Math Pac 14.75 

Weather Watch 

And Forecaster (Disk) 39.75 
Weather Watch 18.75 

Hurricane Tracker 12.75 

Heart-Lung-Circulatory 

System 26.95 

Medical Terminology 14.75 

Phonics 1 18.75 

Phonics 2 18.75 

Spefling (6 tapes) 37.75 

with voice 

Stress Evaluator 18.75 

Galactic Hangman 14.95 

Can Enter Spelling Lists 
Great USA 16.75 

Prereader (Sugar) 16.75 

Preread 1. 2 & 3 (P.P.) 18-75 



Games 



Space Shuttle (Sim) 21.95 

Cu*Ber 21.95 

Adventure In Wonderland 18.75 
Teee-ofiT 18.75 

Shaft 18.75 

Monsters & Magic 14.75 

Jungle 14.75 

Viking 14.75 

Gangbusters 14.75 

Topsy Turvy 14.75 

Football 14.75 

Naked Gamer 16.75 

Great Word Game 14.75 

Decipher 18.75 

Inspector Queseau 14.75 

Patti-Pak 16.75 

Dunk a duck 14.75 

Stagecoach 14.75 



Basinesf/Utilities 

Prickly-Pear Mailing List 

(Disk) New Ver. 

Real Estate Investment 
Statistical Analysis 
Statgraf 

Stress Evaluator 
Tims Mail 
Tims Database 
Bond Yield 

Co-Co Receivables (New) 
Eight-Bit Bartender 
(Office Parties!) 

Colorkit 
Disk Manager 
Disk Master (Disk) New Ver 
Disk ZapperM! 

Omni Gone (Lowest Price!) 

Super Disk Utility (Disk) 

Auto Run 
Semigraf 
Move -It! 

Automatic Tape To Disk 



FILMASTR 

$ 23 75 



Pctrocd Freelance Associates (up«) 



Tycoon 


14.75 


Heart-Lung-Circ Systems 


26.75 


Bowling Secretary 


19.75 


Dunk A Duck 


14.75 


Inspector Clueseau 


14.75 


Stagecoach 


14.75 


For The Kids 




BgBigger-Biggest 


7.75 


ABCs 


7.75 


123 


7.75 


Shapes 


7.75 



Sugar Software 

Great USA 

Bible Stories (Old Test.) 

5 Stories - Children s Adventure 
Silly Syntax (tape) 

Silly Stories 
Prereader 
Tom Mix 

Space Shuttle 
Buzzard Bait 
CUMBER 

Journey To Mt. Doom (disk) 
Air Traffic Controller 
32K-Cassette Only 




-Disk Add $3.00, Amdek Add $6.00- 



Prickly-Pear 




Varaiyxer 64K 


18.75 


Tape Omnidone 


29.95 


Decipher 


18.75 


Music Reader 


26.75 


Flight (sim) 


14.75 


Super Astrology 


18.75 


Gangbusters 

C-15 tape - 75< each/10 for $7.00 
Paper - 500 sheets $5.96 plus shipping 


14.75 



New From Saguaro Software 

Our First Program 

MOVE-ITJ 

Are you tired of**saving" each Rainbow On 
Tape® to the disk? Stop! This ML program 
will do it automatically! Simply load Move- 
It! Execute, press play on the recorder, sit 
back and watch. $15.95. 



Look next month for a few new programs from Saguaro Software. Authors! 
Contact us about royalties. ★ Dealer inquiries invited. 



VISA 



A z. Residents Add 7 % Tax • Add $1.00 Per Program For Shipping ($4.00 Max.) 

Some Quantities Umited 

7331 E. Beverly - Tucson, A Z 85710 - (602) 885-6508 cwsri 




$ 0 0 0 



Continued Low Price 

Amdek Dual 3" Disk Drive 

$ 475 00 

(Retail *599) 

Includes 2 Drive Cable 
And 2 Diskettes 

Plus Shipping 

First Box Of 10 3~ Disks - 

$4500 



Don't Be Fooled! 

We sell only genuine Radio 
Shack Disk Controllers and 
Amdek Cables. 



10-3' diskettes • $55.00 
RS. disk controller, $135 with 
Amdek. $165 alone. 

RS. disk manual • $12.00 





MID$ 

by Gary Smith, Hawg Wild Software" 

This is being written on the evening 
I recieved my November/ December 
1983 Issue due to publishing dead- 
lines. That means I am assuming a 
second column will be accepted before 
I have any feedback from the first 
one. Since/ I still have no earthly 
Idea what you want to find when you 
check in on my little piece. I will 
just have to wing it again. 

The first thing I want to do, is make 
it clear I want your feedback/ com- 
ments/ and suggestions. That is one 
of my ground rules. I hope you will 
cooperate. 

The address for them is as follows: 
MID$ 

HAWG WILD SOFTWARE* 

P.0, box 7668 

Little Rock/ Ar 72217 

or send them to: c/o the ICCC/ INC. 

Newsletter ". I will make an effort 

to include as much reader input as 

possible. 

We looked at the 64k CoCo last issue. 
Equal time says we should take a 
look at POCO as well. By POCO.I 
mean the Model MC-10® Micro Color 
Computer ". 

What has the gang in Ft. Worth put 
inside this less expensive/ bone white 
box? If you guess about the same 
goodies that come in the Color Com- 
puter ", or CoCo, as we alt call it/ 
you are a little right and a lot wrong. 

The similarities are as follows: 

★MOVABLE KEYS (NOT MEMBRANE 
LIKE MANY LOWER COST MACHINES) 
★RS-232 PORT FOR MODEMS, PRINT- 
ERS, AND SUCH 
★SOUND 

★CASSETTE INTERFACE 
★COLORS 

★TV CONNECTION 

★RESET (BUTTON ON BACK) 

★GRAPHICS CAPABILITY (LOW RES) 
★ MICROSOFT COLOR* BASIC " 

PAGE 10 



The biggest difference on first glance 
is that BASIC keywords are entered 
with two keystrokes (CONTROL/Specific 
Key) instead of spelling out such 
BASIC commands as INPUT, PRINT, 
GOSUB... etc. This cuts down on pro- 
gram input time considerably, once 
you get used to it. At first, the 
habit of typing in each keyword is 
hard to overcome, but you soon adjust 
to the two stroke rythm. Then you 
appreciate the convenience. 

Next you will notice that the graphics 
characters are also represented on 
fifteen keys, clustered mostly to the 
left side of the keyboard. While gra- 
phics are limited and all low resolu- 
tion, a lot can be done with these 
fifteen (15) choices. They have been 
chosen well. Graphics are also keyed 
with but two keystokes (SHIFT/Specif- 
ic Key). 

If you are getting the impression this 
was designed as a great first-timers 
intro machine you are right, but don't 
sell POCO short. There is muscle 
here, too. 

That muscle arrives in the form of 
Motorola's 6803” , a member of the 
6800 family we have come to know 
and love. The 6803 is a busy 8-BIT 
Micro Computer Unit, as Motorola calls 
it. It has 2K of on chip ROM, 128 
BYTES of RAM, Serial Communications 
Interface, 3 Function Programmable 
Timer, and Parallel 1/0 all driven 
by a 1.0 MHZ Clock. It is worthy 
of the 6800 family name. 

Although they both use MICROSOFT" 
COLOR BASIC because of the different 
tokenization of keywords, CoCo and 
POCO programs are not directly cas- 
sette compatible. First, you can for- 
get about Extended BASIC working 
at alt. CoCo programs seem to LOAD 
into POCO, but they will not RUN. 
The solution is to convert the tokens 
to the correct set used by the MC-10? 



The program to do this, neatly, was 
provided by Dan Downard in the Oct- 
ober 1983 issue of RAINBOW Magazine? 
Since I won't try to plagerize Dan's 
work here, if you are interested, 
drop a Line to RAINBOW, P.0. Box 

209, Prospect, KY 40059. I assure 
you Lonnie Falk will be happy to 

sell you a back issue while supplies 
last. 

Changes and upgrades (Authorized 
and Bootleg) are going to be a bit 

tougher. The PC Board is tacked to 

a RF Shield, and all the Logic Chips 
are soldered in place. Should you 
decide to take a look, be advised, 
the keyboard is connected to the 
mother board with two ribbon cables. 
BE CAREFUL!! 

There is only 3K of RAM in the P0C0 
box, but an expansion slot lets you 
go to 20K. As in the CoCo, RAM is 
dynamic. When you pull the plug you 
lose the memory, so, a minimum work- 
able system should include a cassette 
recorder. This means you can get 
into some real computing for about 
$150-$200 plus a TV and a membership 
in the International Color Computer 
Club, Inc. That's not to shabby of 
a deal at all. 

Best Regards - Gary Smith ® 1983 
HA WG WILD SOFTWARE" 

ICCC, Inc. Newsletter" Is a trademark of the 
International Color Computer Club, Inc. Micro 
Oolor Computer and Color Computer are trademarks 
of the TANDY Corporation. MICROSOFT COLOR BASIC" 
is a trademark of Microsoft Corporation. 6803 
is a trademark of Motorola. RAINBOW is a trademark 
of Fa I soft, Inc. 

® MC-10 is a registered trademark of the TANDY 
Corporation. 

My Obiendient Child 

I'm a busy wife and mother 
with lots of things to do. 

Yet I sit at my computer 
whenever I am feeling blue. 




:0MPUTER GRADE 
DATA TRAC 

BLANK CASSETTES 



C-05, C-06, C-10, C-12, C-20, C-24, C-32 



From the leading supplier of Computer Cassettes, 
new, longer length C-12’s (6 minutes per side) provide 
the extra few feet needed for some 16K programs. 

BASF-LHD (DPS) world standard tape. 
Premium 5 screw shell with leader. 

Internationally acclaimed. 

Thousands of repeat users. 

Error Free • Money back guarantee. 



500 C-12’s or C-10's — 380 each 

(w /labels, add 40 • Shipping S17./500 
500 Boxes 130 ea • Shipping $1 0^/500 
(Free Caddy offer does not apply) 




TRACTOR FEED • DIE-CUT 
BLANK CASSETTE LABELS 

WHITE: $3.00/100 $20.00/1000 
COLORED LABELS • Pastels - 
Red, Blue, Green, Yellow, Lavender 
$4.00/100 $30.00/1000 



CASSETTE STORAGE CADDY 

Holds 12 cassettes oe 

w/o boxes ^ 

Includes edge labels 
and index card 



FREE 

1 CADDY WITH EVERY 
4D0 Z. CASSETTES PURCHASED 

(does not apply to 500 quantity offer) 




Call: 213/700-0330 *>' IMMEDIATE SHIPMENT 

' on Credit Card Orders 



ORDER 
NOW 



rfl .C> 



m 



MAIL 
TO . . 



VORK lO 



jm 9525 Vassar Ave. # 1C 
Chatsworth, CA 91311 



ORDER FORM ■ 



ITEM 


1 DOZEN 


2 DOZEN 


1 total— 


C-05 


□ 7 00 


□ 1300 






□ 7.00 


□ 1300 




C-10 


□ 7.50 


□ 14.00 




C-12 


□ 7.50 


□ 14.00 




C-20 


□ 8.75 


□ 16.50 




C-24 


□ 900 


□ 17.00 




C-32 


□ 11.00 


□ 21 00 




Hard Box 


□ 2.50 


□ 400 




White Labels 


□ 3 00.100 


□ 20 00 '1000 




Colored Labels 
Color 


□ 4 00/100 


□ 30 00 1000 




DESORPTION 


PRICE 


QUANTITY 




Storage Caddy 


295 


















SUB TOTAL 




Calif, residents add sales tax 




Shipping /handling (any quantity — using pnees above) 




Outside 48 Continental States — Additional $1 per 
caddy; per doz. cassettes or boxes 




TOTAL 





CHECK OR M.O. Charge to 

ENCLOSED □ Credit Card: VISA □ MASTERCARD □ 
□ PLEASE SEND QUANTITY DISCOUNTS 



Each cassette 
includes two YORK 10 
labels only. Boxes are 
sold separately We 
prefer to ship by UPS 
as being the fastest and 
safest. If you need ship- 
ment by Parcel Post, 
check here Q 

NOTE Additional 
charges outside 48 
Continental States 
Shipments to AK. HI. 
and USA possessions 
go by Priority Mail. 
Canada & Mexico— 
Airmail: 

All others— Sea Mail 

Ask about our 
DUPLICATING 
SERVICE 



‘ Card No Exp. . 



Name 



Why do I do it? 

It's simple as 1+1 is 2. 

My CoCo does exactly what I tell it, 
my children seldom do! 



I 



Address 

City 

Signature 

Computer make & model 



State/Zip 

Phone 



Disk? (y/n) 



. J 



FACTORY CLOSE OUT! 



*t>so 



,\u\eW 
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cnmpuTER 

DISTRIBUTORS 
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aiiiii 



ABACUS 

Wholesale distributors of tandy ™ computer systems 

TANDY SYSTEM 100 
PERSONAL COMPUTER 

(By The Makers Of Radio Shack T “ Computers) 




16K EXTENDED COLOR BASIC $229.00 

16K COLOR BASIC $159.00 

64K UP-GRADE KIT $56.00 

• Factory fresh with full factory warranty 

• Limited supply — first come — first served 

• Call or write for prices on software 

★ PRINTERS $220.00 

★ DISK DRIVES #0 $319.00 #1 $229.00 

★ COMPUTER CASSETTE RECORDERS....$49.00 

★ MODEMS $89.00 

★ COLOR GRAPHIC PRINTERS $139.00 



Send check, money order or -- use your MasterCard, 
VISA or American Express. Add UPS charges to order. 

RADIO SHACK is a registered trademark of TANDY CORP. 



16012 South Cottage Grove Ave., South Holland, IL 60473 
Division of Union Electronics, Inc. 

312-339-2777 



° CoCo MUSIC 0 
formerly TRS-80 MUSIC 



by Patrick M. O'Shaugnessy 
37 Nestllngwood Drive 
Long Valley, N.J. 07853 

A year has gone by already and I 
must say that I have had a good time 
talking to some of you and writing 
this column. 



4 'MACHINE LANGUAGE ROUTINE BY: 

5 'LEO CHRISTOPHERSON TACOMA WA. 

6 'THIS COPY WILL NOT RUN AS 

7 'WRITTEN. THE AMOUNT OF 

8 'PERIODS THAT ARE NEEDED MUST 

9 'BE ADDED IN LINES 270-370 

10 CLS3:PRINT3200,"C0C0 HARMONY"; 



Since I have a very long listing this 
issue, I will keep this part short. 
This listing is for Color Computer 
harmony. Now you probably remember 
last year when I said that harmony 
on this computer is impossible. (Who 
said nothing is impossible?!!) Thanks 
to Leo Christopherson of Tacoma, 
Washington, a machine language program 
for harmony was developed. He ex- 
plains his routine in "Basic Computing" 
July 1983. I suggest you get a copy 
of this and read Mr. Christopherson's 
column. He explains it better than 
I can how the program works. There 
are two songs I have harmonized in 
this listing. By the way, they are 
classical songs. The first one is: 
Prelude in C minor by Chopin, Second 
is: Theme from Finlandia by Sibelius. 

NOTES ON ENTERING SONG: 

CSAVE the listing before RUNning! 

You must add the number of periods 
requested in LINES 270,290,310,330,350 
and 370 before running! 

If you run into any problem, please 
w rite. 



PATRICK M. O'SHA 



11 PRINT3253,"BY 
UGHNESSY"; 

100 G0SUB 270 
1 1 0 G0SUB 1110 
120 POKE 
MUSIC 
130 POKE 
MUSIC 
140 POKE 
MUSIC 
150 POKE 
MUSIC 
160 POKE 
MUSIC 
170 POKE 
MUSIC 
180 POKE 
MUSIC 
190 PLAY 
200 PR INT"THE END":END 
210 '************************* 

220 ' **PUT IN THE NUMBER OF ** 

230 ' **PE R 1 0DS REQUESTED. ** 

240 ' **D0 NOT RUN WITHOUT ** 

250 ' **D0ING SO! ** 

260 ' ************************* 

270 SS$ = " 156 PERIODS " 

280 MUSIC=PEEK(VARPTR(SS$)+2)*256 
+PEEK(VARPTR(SS$)+3) 

290 PART$(1 )=" 25 PERIODS " 



248, A1 : POKE 


249,A2:EXEC 


248, B1 : POKE 


249, B2 : EXEC 


248, Cl : POKE 


249,C2:EXEC 


248, Cl : POKE 


249,C2:EXEC 


248, D1 : POKE 


249,D2:EXEC 


248, D1 : POKE 


249, D2: EXEC 


248, El : POKE 


249,E2:EXEC 


"03T2L1 DC" 





Thanks and have fun! 




1 'COCO HARMONY 

2 'FOR ICCC,INC. BY: 

3 'PATRICK M. O'SHAUGHNESSY 



300 A1=PEEK(VARPTR(PART$(1 ))+2) : 
A2=PEEK (VARPTR ( PARTS (1 ) )+3) 

310 PART$(2)=" 37 PERIODS " 

320 B1 =PEEK( VARPTR (PARTS (2 )) +2) :B 
2=PEEK(VARPTR(PART$(2))+3) 

330 PART$(3)=" 61 PERIODS " 

340 Cl =PEEK (VARPTR (PARTS (3) )+2) : C 
2=PEEK (VARPTR (PARTS (3) )+3) 

350 PARTS (4)=" 37 PERIODS " 
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360 D1=PEEK(VARPTR(PART$(4))+2):D 
2=PEEK (VARPTR (PART$(4) )+3) 

370 PART$ ( 5 52 PERIODS ” 



380 El=PEEK(VARPTR(PART$(5))+2) :E 
2=PEEK (VARPTR (PARTS ( 5 ) ) +3 ) 

390 RETURN 

400 ************************** 

410 ' **8E LOW IS THE M/L WHICH* 

420 '**PRO DUCES THE HARMONY ** 

430 ************************** 

440 DATA 222,248,51,93,19,134,254 

,180,255,3,183,255 

450 DATA 3,127,255,32,134,247,180 

,255,1,183 

460 DATA 255,1,134,247,180,255,3, 
183,255,3 

470 DATA 134,8,186,255,35,183,255 
,35,79,198 

480 DATA 1,31,1,151,245,151,247,4 
8,31,38 

490 DATA 47,51,67,166,196,129,255 
,38,17,134 

500 DATA 247,180,255,35,183,255,3 
5,135,1,186 

510 DATA 255,3,183,255,3,57,129,2 
54,38,10 

520 DATA 174,65,48,31,38,252,51,6 
6,32,219 

530 DATA 174,196,236,65,151,244,2 
15,246,10,244 

540 DATA 38,23,204,120,1,216,245, 
39,5,187 

550 DATA 255,32,32,4,176,255,32,6 
4,183,255 

560 DATA 32,166,65,221,244,10,246 
,38,174,204 

570 DATA 120,1,216,247,39,5,187,2 
55,32,32 

580 DATA 4,176,255,32,64,183,255, 
32,166,66 

590 DATA 221,246,32,149 
600 ************************* 

610 ' **BELOW ARE THE SONGS ** 

620 ' **WH I C H I HAVE INPUTED** 



630 ************************* 



640 DATA 
650 DATA 
660 DATA 
670 DATA 
680 DATA 
690 DATA 
700 DATA 
710 DATA 
720 DATA 
730 DATA 



1 28,41,52,128,39,52 

96.42.55.64.47.56 

1 28.53.63.128.53.63 

1 28.47.59.96.53.71 
255 

64.60.71.128.63.71 

128.56.67.128.50.71 

96.42.62.64.47.63 

128.50.63.128.63.56 
128,42,55,96,33,44 



740 DATA 64,36,43,128,41,41 
750 DATA 255 

760 DATA 128,25,45,128,25,39 
770 DATA 96,27,36,64,44,44 
780 DATA 128,27,41,128,30,41 
790 DATA 128,27,44,96,32,41 
800 DATA 64,36,36,125,42,55 
810 DATA 128,30,41,128,39,53 
820 DATA 96,42,55,64,46,46 
830 DATA 128,53,63,128,53,63 
840 DATA 128,47,59,96,53,67 
850 DATA 64,56,56,128,63,63 
860 DATA 255 

870 DATA 64,50,128,64,56,84 
880 DATA 64,50,128,192,47,84 
890 DATA 64,50,128,64,56,95 
900 DATA 64,50,95,96,63,95 
910 DATA 32,56,95,64,56,84 
920 DATA 192,50,128,64,50,128 
930 DATA 255 

940 DATA 64,42,62,64,42,62 
950 DATA 64,47,67,192,37,49 
960 DATA 64,50,75,64,50,75 
970 DATA 64,50,84,96,50,84 
980 DATA 32,57,102,64,56,84 
990 DATA 196,47,56,64,47,56 
1000 DATA 64,47,56,64,50,59 
1010 DATA 64,56,95,196,50,84 
1020 DATA 128,67,96 
1030 DATA 255 

1040 ************************* 
1050 ' **BE LOW IS THE PART OF** 
1060 ' **THE PROGRAM WHICH ** 
1070 1 **S ETS UP THE M/L ROUT** 
1080 ' **AND THE NOTES IN ** 
1090 ' **MEMOR Y . ** 

1100 ************************* 
1110 RESTORE: FORN=MUSIC TO MUSIC 
+1 55:READD:P0KEN,D:NEXTN 
1120 A0=A1*256+A2: FORN=AO TO AO+2 



4:READD:P0KEN,D:NEXTN 

1130 B0=B1 *256+82 : FOR N=BO TO BO 

+36: READD : POKE N, D : NEXT N 

1140 C0=C1 *256+C2: FOR N=CO TO CO 

+ 60: READD : POKE N, D : NE XT N 

1150 D0=D1*256+D2: FOR N=DO TO DO 

+36: READD : POKE N, D : NEXT N 

1160 E0=E1 *256+E2 : FOR N=EO TO EO 

+51: READD : POKE N, D : NEXT N 

1170 RETURN 

1180 TEST$=" ":T1=PEEK (VARPTR ( 

TESTS) +2) : T2=PEEK( VARPTR (TESTS )+ 
3) 



1190 TEST=T1*256+T2: P0KE248,T1:P 
OKE 249, T2 
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* RADIO SHACK m COLOR COMPUTER 

ADVANCED MATH PROGRAMS 

for 

ENGINEERS • PHYSICISTS • STUDENTS 

FUNCTION GRAPHING MODULE 16K EXT-$19.95 

* HIGH RESOLUTION GRAPHS 

* GRAPH ANY FUNCTION — 4 AT ONCE 

* PARAMETERS EASY TO CHANGE 

* AUTO-SCALING OPTIMIZES GRAPH SIZE 

* COMPUTE FUNCTION VALUES & ZEROS 

* INTERSECTION OF FUNCTIONS 

* COMPLETE MANUAL — PROGRAM ON TAPE 

CALCULUS MATH MODULE 32K EXT-$37.95 

* INCLUDES THE GRAPHING MODULE ABOVE 

* LOAD UP 9 FUNCTIONS AT ONCE 

* FIND AND COMPUTE MAXIMA & MINIMA 

* NUMERIC INTEGRATION & DIFFERENTIATION 

* COMPOSITE AREAS 

* HANDLES PIECEWISE CONTINUOUS FUNCTIONS 

* HARD COPIES OF DATA AND/OR GRAPH 

* COMPLETE MANUAL — ON TAPE OR DISK 

^ ^ 

RAINBOW A/ r ^ D UAWl RAINBOW 

CERTIFICATION v ST. ANN. MO 63074 CERTIFICATION 

SEAL SEAL 

SEND CHECK OR MONEY ORDER 
Add $2.00 for shipping 



AMORT 

by Gerald M. Casey 

This is an amortization program with 
a few added features over the usual 
types available. So don't pass it 
over without a quick review. It does 
the following: 

1) You can perform just a simple 
amortization. 

2) You can include extra payments 
you've made and insert them in the 
correct month position. 

3) You can input the type of interest 
calculation your loan may fall under, 
eg. twice a year as apposed to the 
normal 12 times per year. 

4) You can have screen display or 
printed copy. 

The beauty of this program is the 
flexability and the ability to see 
how extra payments in random install- 
ments or perhaps making larger pay- 
ments throughout can effect the term 
of the loan and the interest paid. 
It works very well on mortgage pay- 
ments, especially if the payment sched 
ule is flexible and allows extra pay- 
ments which most do even if only 
on the anniversary date. 

I hope this program is of use to you. 




1 ' G.M. CASEY 

2 ' 109 PRINCE RUPERT BLVD., 

3 ' PRINCE RUPERT 

4 ' BRITISH COLUMBIA 

5 ' CANADA V8J3Z2 

6 ' COPYRIGHT (C) 1983 
10 CLS 

20 PRINT :PRINTTAB(3)"loan amortiz 
ation program" : PRINT: PRINT: PR I NT 
30 INPUT "TOTAL amount OF L0AN”;X 
40 PRINT: INPUT”WHAT RATE OF inter 

est"; I 
50 1=1/100 
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60 PRINT: INPUT"TIMES PER YEAR int 
erest IS CALCULATED/COMPOUND 

ED " ; N 

70 PRINT: INPUT"TERM OF AM0RTIZATI 
ON IN years ? ";T 

80 'PA=PAYMENT,PR=PRINCIPLE PAID, 
IN=INTEREST PAID, BA=B A LANCE OWING 

90 'CALCULATE PAYMENT 
100 Y=1+I/N 
110 YNT = Y (N*T) 

120 PA=X*YNT/ (YNT-1 )*I/1 2:PA=INT( 
PA*1 00+ . 49 ) / 1 00 

130 CLS : PRINT" YOUR MONTHLY PAYMEN 
T WILL BE $" ; PA 
140 PRINT :PRINT :PRINT"IF YOU HAVE 
BEEN MAKING PAYMENT AT A VALUE 0 
THER THAN $" ; PA : PR I NT" ENTE R THIS 
NEW AMOUNT NOW . " : PR I NT " ot h e r w i s e 
just press enter." 

150 INPUT"$";PB$:IF VAL(PB$)<>0 T 
HEN PA=VAL(PB$) : PA=INT (PA*1 00+ . 49 
> / 1 00 

160 'CHOICES 

170 CLS:PRINTTAB(4)"you may:" 

180 PRINT :PRINTTAB(1 )" 1-HAVE A CO 
MPLETE AMORTIZATION." 

190 PRINT: PRINTTABd ) "2-CALC UL ATE 
PAYMENT FOR A DIFFERENT L0 

AN." 

200 PRINT :PRINTTAB(1 ) "3-END PR0GR 
AM.":G0SUB950 

210 PRINT: PRINT"CH00SE A NUMBER ( 
1 TO 3) "; : INPUTZ : I FZ<1 0RZ>3 THE 
N21 0 

220 0NZ G0T0250,1 0,230 

230 CLS:PRINTa233,"end of program 

. " : E N D 

240 'ASK RE EXTRA PAYMENTS 

250 PRINT : CLS :PRINT3224, "WERE EXT 

RA PAYMENTS MADE AT ANY TIME? Y/ 

N ";: INPUTB$: PRINT 

260 I FB$="N"THEN290 

270 IFB$<>"Y" THEN250 

280 G0SUB1 220 

290 CLS 

300 ' PRINTER SCREEN OR QUIT 
310 PRINT "YOU MAY HAVE YOUR AMORT 
IZATION" : PRINT 

320 PRINTT AB (1 ) "1 -ON THE SCREEN." 

330 PRINT :PRINTTAB(1 )"2-ON THE PR 
INTER." 

340 PRINT :PRINTTAB(1 ) "3-PROGRAM T 



ERMINATED.":G0SUB950 
350 PRINT: INPUT" CHOOSE A NUMBER 
(1 TO 3) ";Z:IFZ<1 ORZ>3 THEN290 
360 ONZ GOTO 370,390,230 
370 TYPE = 0 : CLS : PR I NT" AMORTIZATION 
FOR A LOAN OF $"; X : PRINT : PR 

INT"OVER T; " YE AR S " : PR INT : PR I NT 
"AT MONTHLY PAYMENTS OF $";PA:PRI 
NT 

380 PRINT "INTEREST CALCULATED ";N 
;" TIMES PER YE AR . " : PR I NT : PR INT" 
AT A RATE OF "; 1 00*1; "%" : G0T0430 
390 CLS:TYPE=1 : PR INT3224, "TURN PR 
INTER ON NOW! ! ! " : PR I NT : PR I NT "p res 
s any key when ready INPUTAS 
400 '***LOAN DATA**** 

410 CLS:PRINT#-2,CHR$(31 )"AMORTIZ 
ATION FOR LOAN OF $"; X : PRINT#-2, C 
H R $ ( 3 0 ) :PRINT#-2,"0VER";T;" YEARS 
": PRINT#-2: PRINT#-2,"AT MONTHLY P 
AYMENTS OF $"; PA : PRINT #-2 
420 PRINT#-2, "INTEREST IS CALCULA 
TED ";N; "TIMES PER YEAR.":PRINT#- 
2 : PR INT#-2, " AT A RATE OF ";100*I; 
"%":PRINT#-2:PRINT#-2 
430 IF TYPE=0 THEN PRINT"PRESS AN 
Y KEY TO CONTINUE"; : G0SUB1 350 
440 ' ***MAIN PRINTOUT LOOP*** 

450 BA=INT (X*1 00+.49) /I 00:BK=BA 



650 PR=PA-II 

660 BA=BA-PR:8A=INT (BA*100+.49) /I 
00 

670 IT=IT+II:PT=PT+PA 

680 BK=BK-PA:BK=INT(BK*100+.49) /I 

00 

690 I FT YPE = 0 THEN G0SUB1 1 90 : G0T07 
40 

700 PRINT#-2,TAB(3)C;TAB(1 1 )"$";P 
A; TAB (25)"$"; I I; TAB (40)"$"; PR; TAB 
(52)"$";BA; 

710 IFN012 THENPRINT#-2," $";BK: 
G0T0730 

720 PR I NT #-2, "*********" 

730 PRINT#-2 

740 XX=INT(BA*(1+I/12)*1 00+.49) /I 
00: I FPA*1 . 1 >XX THENPA=XX:G0T0810 
750 I FBA<=0 THEN850 
760 D=D+1 

770 IFC-60*(INT (C/60) )=OTHEN GOSU 
B 1 0 7 0 

780 '***RETURN FOR NEXT PAYMENT** 
* 

790 GOTO 5 20 

800 ' ***LAST PAYMENT*** 

810 I I=INT (BA*I/12*100+.49)/100:P 
R=PA-I I : PR = I NT (PR*100)/100:BA=3A- 
PR : BA=INT (BA*1 00)/100:IT=IT+II:PT 
=PT+P A 



460 D=1 

470 ' ***PAGE HEADING*** 

480 IF TYPE=0 THEN GOS UB 1 1 70 : GOTO 
500 

490 PR INT#-2, "NUMBER"; TAB (1 2) "PAY 

ME NT"; TAB (25) "INTEREST"; TAB (40) "P 

RINCIPAL";TAB(52)"BAL. OWING";" 

BAL. (BANK)":G0SUB1370 

500 IT=0:PT=0:C=0:W=0 

510 ' ***NE XT PAYMENT STARTS*** 

520 C=C+1 

530 I F (-1 ) D=-1 THEN G0SUB940 
540 '***CHECK FOR EXTRA PAYMENT** 
* 

550 I F F = 0 THEN600 
560 F0RG=1 TOF 

570 IFN(G)=C-1 THEN G0SUB970 
580 NEXTG 

590 ' ***W COUNTS TO 12 PAYMENTS F 
OR BANK BALANCE CALCULATION*** 

600 W=W+1 

610 IFW>12/N THENW=1 

620 I FW = 1 THEN I B = BK* I / N : IB = I NT ( I 

B*100+.49)/100:BK=BK+IB 

630 IN=BA*I/12:IFN<>12 THEN IN=IB 

*N / 1 2 

640 I I = INT (IN*100 + 0.49)/100 



820 C=C+1 : D=D+1 

830 I FTYPE=0 THEN PRINT" FINAL PAY 
MENT $";PA:G0SUB1190:PRINT :PRINT" 
TOTAL INTEREST PAID $"; IT : PRINT : P 
RINT"TOTAL PAYMENTS MADE $";PT:GO 
T0890 

840 PRINT#-2, "FINAL PAYMENT $";PA 
;TAB(25)"$";II;TAB(40)"$";PR;TAB( 
52)"$";BA 

850 PRINT#-2:PRINT#-2,CHR$(31)"T0 
TAL INTEREST PAID $";IT 
860 PRINT#-2,CHR$(30):PRINT#-2,CH 
R $ ( 3 1 ) "TOTAL PAYMENTS MADE $";PT: 
PRINT#-2,CHR$(30) 

870 '**** 

880 G0T0230 

890 PRINT : PRINT "PRESS < e > TO EN 
D"; 

900 A$=INKEY$:IFA$="" THEN900 
910 IFA$="E"THEN CLS:G0T0230 
920 RUN 

930 '***DIVIDING LINES*** 

940 I FTYPE=0 THEN950 
950 PRINTSTRING$(32,"*");:RETURN 
960 ' ***CALCULATE NEW BALANCE*** 
970 BA=BA-P(G) :BA=INT (BA*100)/100 
:PT=PT+P(G) 
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980 BK=BK-PCG) : BA=INT CBA*1 00+. 49) 
/I 00:8K=INT (3K*1 00+ . 49) /I 00 
990 I FT YPE=1 THEN PR I NT tt-2 , " E X TR A 
PAYMENT ($";P(S);")";;G0T 01020 
1000 PRINT "EXTRA PAYMENT ($";P(G) 

1010 IFTYPE=0 THEN1050 

1020 PRINT#-2,TAB(55)"$";BA;:IFN< 

>12 THEN PRINT#-2,"$";BK 

1030 PRINT#-2:PRINT#-2 

1040 RETURN 

1050 PRINT"$";BA: RETURN 
1060 ' ***NEXT 5 YEAR CHECK*** 

1070 ’ 

1080 PRINT :PRINT" PRESS ' y ' OR 'n' 
TO SEE NEXT 5 YEARS"; 

1090 B$=INKEY$: I F3$=""THEN1 090 
1100 I FB$=" Y " THEN1130 
1110 IF8$<>"N" THEN P R I NT : P R I NT : P 
RINT" PRESS ' Y ' OR 'N' ":60T01080 
1120 I FB$<>" Y" THEN CLS:GOTO230 
1130 IFA$="GO"THEN PR I NT U-2 : R E TUR 
N 

1140 G0SUB1 1 70: RETURN 
1150 END 



1160 


1 ***SCREEN PRINTOUT*** 




1170 


CLS :PRINT"NUM"; 


TAB 


(5)" 


i n t e r e 


st";TAB(16) "PRINCIPL 

i >t 


E"; 


T AB ( 


26) "ba 


1180 


RETURN 








1190 


PRINTC;TAB(3)"$ 


"; i 


I;TAB(1 2)" 


$" ; PR 


:;TAB(22)"$";BA 








1 200 


I FD = 6 THEND = 0: I 


FT Y 


PE = 0 


THEN 


G0SUB 


11340: G0SUB1170 








1210 


RETURN 








1220 


' ***GET EXTRA PA YM 


ENT 


DATA** 


X 

1230 


CLS 








1240 


INPUT"H0W MANY 


EXT 


RA PAYMENT 


S HAV 


E BEEN MADE 


" ; f 


: GOS 


UB950: 


DIMN ( 


F ) , P ( F ) 








1250 


F0RG=1T0F 








1260 


PRINT: PRINT"H0W 


MANY ' 


regu La 


r' PA 


YMENTS WEREMADE 


BE 


FORE 


EXTRA 


PA YM 


ENT NUMBER"; G ; : 


INPUTN ( 


G) : GOS 


UB950 


| 








1270 


INPUT" WHAT WAS 


THE 


amo 


unt OF 


THE 


EXTRAPAYMENT? $ 


" ; p 


(G) : 


P ( G ) = I 


NT ( P ( 


G) *1 00+. 49) /I 00 








1280 


NEXTG 








1290 


RETURN 








1300 


PR I NT#-2 








1310 


PRINT : PRINT" TO 


SEE 


THE 


NEXT 


FIVE 


YEARS PRESS <ENTE R 


>":PRINT"t 


o e x i 


t press break"; 


: IN 


PUT" 


";B$ 


1 320 


RETURN 
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1330 END 

1340 PRINT "TO CONTINUE PRESS ANY 
KEY "; 

1350 NN$=INKEY$;IFNN$=""THEN135Q 
1360 RETURN 

1370 PR INT#-2, STRINGS (80/'*") :PRI 
NT#-2: RETURN 

MEMORY AFTER RUNNING 22823- 17954 
= 4881 



Continued from Page 14 

1200 POKE TEST, 253: POKE TEST+3,2 
5 5 : GOS UB 270 

1210 INPUT A,B: POKE TEST+1,A:P0K 
E T£ST+2,B 

1220 POKE MUSIC+1 32,1 0: EXEC MUSI 
C : POKE MUSIC+1 32,1 20: GOTO 1210 



MEM AFTER RUNNING 22823-19347=3488 




• TANKS • SPIDERS •BLOCKS • CYCLES • 



Battle spiders! Blast your way through the descending blocks) Defeat the 
enemy tanks! Trap the menacing cycles! Increasing levels of difficulty make 
each a real challenge! KRON is a fast ML program with multi-colors, Hl-Res, 
and many great sounds. It displays the top five scores plus has a pause feature 
and display mode. 

32K STANDARD-JOYSTICK TAPE-DISK S26.95-S29.96 



KING PEDE 

The ultimate pede game! You’ll face up to eight different enemies including 
swarms of wasps. ML— multi-color 

32K STANDARD-JOYSTICK TAPE-DISK S24.95-S27.95 



MEM-OS64 

A 64K Menu Driven ML Utility which allows you to store multiple ML or Basic 
programs in the high 32K RAM then pull the desired program and Run/Exec it. It 
maintains a directory, displays the amount of free memory and length of pro- 
grams, has a Motor/Audio On/Off command, a Load and Kill command, and 
allows the easy switching of programs with disk-like speed! With the Multiple 
Load feature, you can load several programs at once with ease! 

64K EXTENDED TAPES15.95 



PEEKCOPY 

Copies tape-based software (even most autostarts), displays memory In Hex 
and ASCII, displays the Start. End. and Exec addresses of ML programs, allows 
the changing of memory, and more (ML)! 

16K STANDARD TAPE 111.95 



REDUCIT 

A ML program that makes your Basic programs use less memory and run more 
efficiently (faster) by combining lines and removing unnecessary spaces and 
remarks! 

16K STANDARD TAPE $9.95 



PLEASE ADD $2.00 EACH ORDER, POSTAGE/HANDLING 

OREGON COLOR COMPUTER SYSTEMS 

P.O. BOX 11468, EUGENE, OR 97440 




BTIL.L DOING THINGS THE HAFyD 



SUNSHINE SOFTWARE HAS THEI ANSWER 



"MENU" Master Di ssl< Utility: 

~ 32K min. 

Allows you to see up to 42 filenames of your directory at one tiae and NEVER scrolls off the screen. Select 
any file by aovins a cursor with your arrow keys. The cursor indicates the filetype. Then* with a SINGLE KEY* 
you can: 

RUN a Basic prosraa. 

LOADM and EXECute a Machine Lansuase prosraa. 

(Even HL prosraas that load on top of "MENU*.) 

CORY any file to any drive. 

KILL any file. 

Get the ADDRESSES of any Machine Lansuase file. 

Chanse drives instantly. 

WITHOUT TYPING COMMANDS OR FILENAMES! 

You can also: 

RENAME any file. (Just type the new filenane.) 

OFFSET LOAD a Machine Lansuase file. (Either HIGHER or LONER in netory.) 

‘MENU* has aachine lansuase routines for increased speed and error checkins. 

WHAT DDIJLD BEE EASIER? 

Every owner of "MENU" agrees that "MENU" is a program they use 
so often* they’ve put a copy on EVERY disk they own! 

"MENU" comes with full instructions and a QUICK REFERENCE CARD. 



"CDL.ORTAC" DISK TACHOMETER 

' 16K. min. 

If your disk drive doesn’t turn at 300 R.P.H.* you could be in for a headache! You can check by reeovin9 
the cover under a florescent lisht and watchin9 the strobe every tine* OR* do it the easy way! 
"COLORTAC’s features include: 

Bar sraph display. 

Current speed. 

Averase speed. 

Percent of error. 

Hishest speed recorded. 

Lowest speed recorded. 

Nuaber of checks Bade. FAST SERVICE! 

Easy to understand display. PERSONAL CHECKS NELCOME! 

Instructions included. 

SUNSHINE SOF^TWf^FVlFE: 

F* - O . BOX I SfcBfc 

CITY, FL 3240 






CoCo Commands 



by Ron Garrett 

Two newsletters ago we had the 
CoCo commands from A-I. Except, 
we forgot to do one thing, that was 
to seperate the BASIC, ECB, -. and — F>is4t- 
;Basie from each other. Well, we 
rewrote the programs and have 
included • the whole list from 
A-Z on the CoCo commands. They 
have been broken up in the above 
mentioned format. The programs 
will run in that category of 
computer. However, there is a 
line in each program that auto- 
matically loads and runs the 
next program off of disk. These 
programs do not necessarily re- 
quire the disk to run, because 
you can delete that line. All 
of the programs do require 32K 
except for the extended commands 
program number 3 . The memory 
list is from use on a disk system, 
but the memory used should be 
the same amount . 

You may wish to break the program 
up so that it will fit in a 16K 
machine, note a lot more programs, 
and you are free to do so, but 
do not forget to put the required 
part at the bottom of the program 
in your program. 

Thank you and have fun using 
these programs. 

BASIC 




2 1 Ron Garrett 

3 ' 2101 East Main St. 

4 ' Henderson, Texas 75652 

10 CLS : PRINT" *** OPERATOR ABS 

***" 

20 PRINT: PRINT"THE COMMAND ABS IS 
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s 


H0RT FOR 




the absolute va 


lu 


e of " : PRINT"REG 


ARDLESS OF SIGN 


(A 

It 


POSITIVE 


OR N 


EGATIVE NUMBER). 


30 


PRINT : PRI 


NT"T0 


SHOW YOU HOW TH 


IS 


WORKS, 


ENT 


ER A NUMBER WITH 


A 


POSITIVE 


SIGN 


(JUST A NUMBER) 


" . 
/ 


: INPUTA 






40 


INPUT" NOW 


ENTE 


R A NEGATIVE NUM 


BE 


R EG. 


PUT A 


- IN FRONT OF T 


HE 


NUMBE 


R, LI 


KE -1 2";B 


50 


PRINT: PRI 


NT " TH 


E ABSOLUTE VALUE 


0 


F" ;A:PRINT 


"TIME 


S ";B;"EQUALS"; A 


BS 


(A*B) 






60 


G0SUB 2030 




70 


G0SUB 2060 




80 


PRINT : PRI 


NT " <A 


N D > IS A MATHEMA 


T I 


CAL 0PERAT0RF0R 


BINARY NUMBERS. 


I 


N THE 


B I N A 


RY NUMBERING SYS 


TE 


M YOU 


HAVE 


ONLY 1 ' S AND 0 ' S 


/ 


I CAN'T T 


0TALL 


Y EXPLAIN THE BI 


NARY" 






90 


PRINT "SYSTEM, 


BUT HERE IS AN E 


X AMPLE : BASE 

V 11 


10 


BINAR 


T 

100 PRINT" 1 




00 


01 


2 




001 


0 


3 




001 1 




1 2 




1100 




1 5 




1111 



110 G0SUB 2030 
120 G0SUB 2060 

130 PRINT : PRINT"THE ONES AND ZERO 
S ARE CALLED BITS, 4 OF THEM TO 
GETHER ARE CALLED A NIBBLE AND 
REPRESENT ONE HEXIDECIMAL NUMB 
ER. 8 OF THEM TOGETHER (CALLED 
A BYTE) IS WHAT THE COMPUTER U 
SES." 

140 P R I NT" TO MAKE THINGS SIMPLER, 
WE ARE GOING TO USE THE 8 BIT B 
YTE IN THESE REPRESENTATIONS. (M 
EANING THE NUMBERS WILL ALWAYS BE 
8 BITS LONG. (WE WILL ADD 0'S 
>" 

150 G0SUB 2030 : G0SUB 2060 
160 PRINT : PR INT"T0 <AND> TWO B I N A 
RY NUMBERS WE MEAN THAT IF TH 

E BIT IN THE FIRST NUMBER <AND> 
THE BIT IN THE SECOND NUMBER AR 
E SET (1) THEN THE SAME BIT IN 
THE ANSWER WILL BE SET. EG:" 

170 PRINT :PRINT" 10010011 ( 

147)":PRINT" AND 01101101 (109) 

" : PR INT" =00000001 (1)" 



180 60SUB 2030 : GOSUB 2060 
190 PRINT :PRINT"THUS WE CAN DETER 
MINE IF A BIT IS SET OR NOT BY U 
SING THE LOGICAL OPERATOR <A 

ND>." 

200 PRINT: PRINT"ONE GOOD USE YOU 
CAN PUT THIS TO IS TO SEE IF YO 
UR PRINTER IS R E A D Y . " : PR I NT" E G : I 
F (PEEK(65314) AND 1)=1 THEN C 
LS:PRINT3232," ;CHR$(34);" PRINTER 
NOT READY"; CHR$ (34) 

210 GOSUB 2030 : GOSUB 2070 
220 PRINT "ASC IS SHORT FOR ASCII 
WHICH IS PRONOUNCED AS-KEY AND ST 
ANDS FORAMERICAN STANDARD CODE fo 
r INFORMATION INTERCHANGE" 

230 PRINT :PRINT" BASICALLY WHAT AL 
L THIS MEANS IS THAT THERE ARE 
SPECIFIC NUMBERS ASSIGNED TO 

LETTERS NUMBERS, SYMBOLS, ET 

C. SO THAT COMPUTERS CAN OPERATE 
ON THEM." 

240 GOSUB 2030 : GOSUB 2070 
250 PRINT" FOR INSTANCE THE ASCII 
CODE FOR THE LETTER A IS 65, B 
IS 66 AND SO ON. THIS IS GREAT, 
BUT LET'S SEE WHAT WE CAN USE 
IT FOR." 

260 PRINT :PRINT" LET'S SAY THAT YO 
U HAVE WRITTEN A PROGRAM AND NEED 
TO ACCEPT A KEY PUSH, BUT ONLY 
ON KEYS A THRU F. 

270 GOSUB 2030 : GOSUB 2070 
280 PR I NT" YOU COULD DO IT THIS WA 
Y : " : PRINT "100 A$=INKEY$":PRINT"11 
0 IF ASC (A$)<65 OR ASC(A$)>70 THE 
N 100 

290 PRINT : PRINT"THIS WOULD ALLOW 
ONLY A THRU F TO BE INPUT." 

300 PRINT : PRINT"YOU CAN ALSO USE 
THIS FUNCTION TO GET INPUT FROM 
KEYS WHICH WILL NOT PRINT ON T 
HE SCREEN SUCH AS THE ARROW KE 
YS" 

310 GOSUB 2030 : GOSUB 2070 
320 PRINT" HERE IS AN EXAMPLE OF A 
PROGRAM THAT USES THE ARROW KEYS 
TO MOVEA DOT AROUND ON THE GRAPH 
ICS SCREEN" 

330 PRINT : PRINT"5 X = 1 28 : Y = 96" : PR I 
NT" 1 0 A$=INKEY$: IF A$=" ; ST R I NG$ ( 2 
,34);" THEN 10":PRINT"20 A=ASC(A$ 
) : I F A = 94 THEN Y = Y -1 " : PR I NT" 30 IF 
A= 1 0 THEN Y=Y+1" : PRINT "40 IF A=9 
THEN X=X+1":PRINT"50 IF A=8 THEN 
X=X-1":PRINT"60 SET(X,Y,5):G0T0 



10 " 

340 GOSUB 2030 : GOSUB 2070 
350 PRINT"LET'S PUT THIS PROGRAM 
TO USE AND SEE HOW IT WORKS":PR 
INT :PRINT :PRINT"HIT THE Q (FOR QU 
IT) KEY TO GET OUT OF THIS MODE A 
ND CONTINUE THE PROGRAM" 



360 


GOSUB 2030 






370 


CLSO : X=32 : Y= 


1 5 




380 


A$ = 


INKEY$: IF 


A$=" " TH 


EN 380 


390 


A=ASC(A$) : IF 


A=94 THE 


z 

-< 

II 

-< 

• a 


IF 


Y<0 


THEN Y = 0 






400 


IF 


A = 1 0 THEN 


Y=Y+1 : IF 


Y>31 TH 


EN 


Y = 3 1 








410 


IF 


A=9 THEN 


X=X+1 : IF 


X>63 THE 


N X 


= 63 








420 


IF 


A=8 THEN 


U_ 

• ■ 
1 

X 

II 

X 


X<0 THEN 


X = 


0 








430 


IF 


A=81 THEN 


450 




440 


SET 


( X , Y , 5 ) : GOTO 380 





450 GOSUB 2080 

460 PRINT : PRINT"THIS COMMAND ROUT 
ES THE OUTPUT OF THE TAPE PLAYER 
TO THE TV'S SPEAKER, ALLOWING Y 
OU TO PLAY MUSIC OR SPEAK WHILE 
PRESENTING A GRAPHIC OR TEXT DIS 
PLAY." 

470 PRINT" YOU CAN ALSO USE THIS C 
OMMAND ALONG WITH THE PLAY COMM 
AND TO OBTAIN 2 OR 3 PART HARMON 
Y FOR YOUR COMPUTER GENERATED MU 
SIC" 

480 GOSUB 2030:G0SUB 2080 
490 PRINT "OTHER USES FOR THIS COM 
MAND ARE 1. TYPE AUDIO ON BEFORE 
A CSAVE TO VERIFY THE SA 

VE . " : PRINT"2 . TYPE MOTOR ON:AUDIO 
ON TO FIND A BLANK SPACE B 

ETWEEN TWO PROGRAMS ON TAPE 

SO YOU WON'T GET AN I/O ERROR 

II 

500 PRINT" WHEN YOU CLOAD A PRO 
GRAM.":PRINT"3. PLAY YOUR FAVORIT 
E RECORDING OF MUSIC THRU THE 
TV. 

510 GOSUB 2030 : GOSUB 2090 
520 PRINT "THESE COMMANDS ALLOW YO 
U TO LOAD AND SAVE PROGRAMS T 

0 TAPE THE C IN CLOAD STANDS FOR 
THE CASSETTE, SO YOU PRONOUNCE 
IT CASSETTE LOAD INSTEAD OF CL 
0 A D . " 

530 PRINT "TO USE THESE COMMANDS, 
SIMPLY INSERT A TAPE (WITH A PR 
OGRAM ON IT) IN THE TAPE PLAYER 
AND TYPE CLOAD, THE MACHINE WI 
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LL TURN ON THE MOTOR, LOAD IN 
THE PROGRAM AND TURN THE MOTOR 0 
FF." 

540 GOSUB 2030 : GOSUB 2090 
550 PRINT" IF THE PROGRAM IS IN MA 
CHINE LANGUAGE, YOU MUST ADD A 
N M TO THE COMMAND, EG: CLOADM." 

560 PRINT "IF YOU WANT A SPECIFIC 
PROGRAM FROM THE TAPE YOU CAN SP 
ECIFY THE FILENAME OF THE PROGR 
AM." 

570 PRINT"LET ' S SAY YOU HAVE A TA 
PE WITH 10 PROGRAMS ON IT, ONE 0 
F THE PROGRAMS IS CALLED 'INVAD 
ERS ' . TO LOAD IT, YOU TYPE : 

CLOAD";CHR$ (34); "INVADERS"; 
CHRSC34) 

580 GOSUB 2030:G0SUB 2090 
590 PRINT"BE SURE TO ENCLOSE THE 
NAME OF THE PROGRAM IN QUOTES.": 
PRINT : PRINT" YOU SAVE PROGRAMS THE 
SAME WAY. IF YOU HAVE WRITTEN A 
PROGRAM AND WANT TO SAVE IT TO 
TAPE," 

600 PRINT" ALL YOU HAVE TO DO IS T 
YPE: CSAVE";CHR$(34) ;" program 

name" ;CHR$(34) 

610 PR INT"THE PROGRAM NAME CANNOT 
BE MORE THAN 8 CHARACTERS AND YO 
U MUST ENCLOSE IT IN QUOTES." 

620 GOSUB 2030:G0SUB 2090 
630 PRINT" IF YOU ARE SAVING A MAC 
HINE LANGUAGE PROGRAM, YOU MU 

ST ALSO INCLUDE THE BEGINNING, EN 
D AND EXECUTION ADDRESSES OF THE 
PROGRAM. " 

640 PRINT "ALWAYS BE SURE YOUR TAP 
E PLAYER-RECORDER IS IN THE PROPE 
R MODE (EITHER RECORD OR PLAY) A 
ND IS READY BEFORE USING ONE OF 
THE ABOVE COMMANDS, AS CSAVING 
A PROGRAM WHEN THE RECORDER IS 
IN THE PLAY POSITION does not 
save the program!"; 

650 GOSUB 2030 : GOSUB 2090 
660 PRINT" YOU CAN CSAVE YOUR PROG 
RAM IN ASCII INSTEAD OF BINARY, 
BY THE ADDITION OF AN <A> TO THE 
CSAVE COMMAND." 

670 PRINT "LET ME EXPLAIN THIS FUR 
THER. THE COMPUTER ENCODES ALL 
OF THE COMMANDS AND OPERATORS IN 
TO 1 OR 2 BYTE CODES. THE COMPU 
TER WILL NORMALLY CSAVE THESE C 
ODES AND NOT THE WORDS THEMSELVES 
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It 



680 GOSUB 2030 : GOS UB 2090 

690 PR INT" I F YOU TYPE CSAVE";CHR$ 

(34);" PROGRAM ”;CHR$(34);", A” 

700 PRINT :PRINT"THIS WILL SAVE TH 
E PROGRAM, LETTER BY LETTER T 

0 THE TAPE .": PRINT : PRINT"ONE OF T 
HE REASONS FOR DOING THIS IS T 
0 MAKE THE PROGRAM TRANSPORTA 

BLE BETWEEN COMPUTERS (OTHER THAN 
A COLOR COMPUTER)." 

710 GOSUB 2030 : GOSUB 2100 
720 PRINT "YOU MIGHT SAY THAT CHR$ 
IS THE OPPOSITE OF THE ASC COMM 
AND .": PR INT" IT GIVES YOU THE CHAR 
ACTER THAT REPRESENTS THE ASCII V 
ALUE . " 

730 PR INT" EG : IF YOU TYPE PRINT C 

H R $ ( 6 5 ) THE COMPUTER WILL PRINT 
AN A ON THE SCREEN." 

740 PRINT : INPUT"WANT TO TRY IT";Z 
$ : I F LEFT$(Z$,1 ) ="N" THEN 770 
750 CLS:PRINTS)224:INPUT" ENTER A N 
UMBER BETWEEN 32 & 255";Z 
760 CLS:PRINTa228,"THE ASCII CODE 
";Z;"=";CHR$(Z) : PRINT : INPUT" WANT 
TO TRY AGAIN";Z$: IF LEFT$(Z$,1 )=" 
Y" THEN 750 
770 GOSUB 2100 

780 PRINT "DEMO:":PRINT" THIS IS TH 
E PROGRAM" : PRINT"10 FOR X=33 TO 2 
55 : PRINTCHRS (X) 20 NEXT X" 

790 PRINT : FOR X = 33 TO 255 :PRINTCH 



R $ ( X ) ; : NE XT 

800 GOSUB 2030 : GOSUB 2100 
810 PRINT" DO YOU KNOW WHY WE STAR 
TED AT 33 AND NOT 1 OR 0?":PRIN 
T"THE ASCII CODES FROM 0 TO 31 AR 
ECONTROL CODES AND WOULD NOT BE 
PRINTED ON THE SCREEN." 

820 PRINT "HERE ARE SOME EXAMPLES: 
": PRINT "ASC II DOES" 

830 PRINT "10 LINEFEED 

":PRINT"12 TOP OF FOR 

M 13 CARRIAGE RETU 

RN" 



840 PRINT" ASK YOUR TEACHER FOR A 
FULL LISTING OF THE ASCII COD 

E S . " 

850 GOSUB 2030 : GOSUB 2110 
860 PRINT"THIS COMMAND CLOSES AND 
OPEN CASSETTE FILE. YOU CAN 

WRITE DATA TO THE CASSETTE WITH 
THE SHORT PROGRAM:" 

870 PRINT" 10 OPEN " ; C H R $ ( 3 4 ) ; " 0 " ; 
CHR$ (34) ;",#-1 ,"; CHR$(34) ;"DATA" 



880 PRINT" 20 I NPUT" ; CHR$ < 34) ; "ENT 
ER DATA"; CHR$(34) ;";A$" 

890 PRINT"30 PRINT#-1,A$" 

900 PRINT "40 IF A$="; CHRS (34) ; "EN 
D";CHR$(34) ;" THEN 60" 

910 PRINT" 50 GOTO 20":PRINT"60 CL 
OSE : END" 

920 GOSUB 2030 : GOSUB 2110 



930 


PRINT "WE 


WILL GO FURTHER I 


NTO 


TH 


IS 


WITH 


THE OPEN 


COMMAND 


a 






WHAT 


THE CLOSE 


COMMAND 


DO 


ES 


IS 


WRITE 


A CLOSING 


HEADER 


TO 



THE TAPE, SO WHEN YOU ARE READI 
NG IT BACK INTO THE COMPUTER, T 
HE COMPUTER WILL KNOW WHEN IT HA 
S" 

940 PRINT "REACH ED THE END OF THE 
FILE. OTHERWISE IT WOULD CONTI 
NUALLY SEARCH THE TAPE FOR MORE 
DATA." 

950 GOSUB 2030 : GOSUB 2120 
960 PRINT" CLS IS SHORT FOR CLEAR 
SCREEN. ON THE COLOR COMPUTER TH 
IS ALSO RETURNS THE CURSOR TO THE 
TOP OF THE SCREEN." 

970 PRINT "SINCE THIS IS A COLOR C 
OMPUTER YOU CAN ALSO SPECIFY THE 
COLOR YOU WANT THE SCREEN CLEAR 
ED TO. EG: CLS4 OR CLSO. THERE AR 
E 9 DIFFERENT COLORS YOU CAN US 
E 0 TO 8, IF YOU USE A NUMBER 
HIGHER THAN 8 THE COMPUTER WI 

LL" 

980 PRINT" DO A CLS1 AND PRINT MIC 
ROSOFT" 

990 GOSUB 2030 : GOSUB 2130 
1000 PRINT "THE CLEAR COMMAND IS U 
SED IN 3 WAYS. JUST TYPING CLEAR 
, CLEARS ALL VARIABLES. CLEAR 200 
WILL RESERVE 200 BYTES FOR VAR 
IVABLE STORAGE. (200 BYTES IS WHA 
T THE COMPUTER RESERVES ON POWERU 
P) ." 

1010 PR INT"CLEAR 200,15000 WILL R 
ESERVE 200 BYTES STARTING AT L 
0 C AT I ON 1 5000 FOR A MACHINE LANG 
U AGE PROGRAM OR ROUTINE AND IS 
USED SO THAT YOU WON'T WRITE 0 V 
ER THE ROUTINE WITH YOUR BASIC 
PROGRAM. 

1020 GOSUB 2030 : GOSUB 2130 
1030 PRINT "YOU MAY COME UP WITH A 
N OS ERROR (OUT OF STRING SPACE) 0 
NCE IN A WHILE. WHEN YOU DO, YOU 
NEED TO USE THE CLEAR COMMAND TO 
CLEAR MORE STRING SPACE." 



1040 PRINT "BE SURE TO PUT THIS CO 
MMAND AT THE START OF YOUR PROGR 
AM, AS A CLEAR COMMAND WILL CLEAR 
ALL OF YOUR VARIABLES ANY WAY YO 
U USE IT. EG. IF YOU HAVE: 

1050 GOSUB 2030 : GOSUB 2130 
1060 PR I NT" 1 0 INPUT ";CHR$(34);"EN 
TER FILENAME ";CHR$(34);";A$":PRIN 
T" 20 CLEAR 500" 

1070 PRINT : PRINT"THE FILENAME YOU 
ENTERED IN LINE10 WILL BE ERASED 
AND AS WILL EQUAL NOTHING." 
1080 GOSUB 2030 : GOSUB 2140 
1090 PRINT "CONT SHORT FOR CONTIN 
UE ALLOWS YOU TO CONTINUE A PROGR 
AM AFTER YOU HIT BREAK OR AFTER T 
HE PROGRAM ENCOUNTERS A STOP 

COMMAND. ":PRINT 

1100 PRINT "THIS COMMAND IS ENTERE 
D DIRECTLYFROM THE KEYBOARD, AND 
ALLOWS YOU TO KEEP ALL VARIABLE 
VALUES INTACT." 

1110 GOSUB 2030:GOSUB 2140 
1120 PRINT" I SOMETIMES USE STOP L 
INES ON GRAPHICS PROGRAMS TO FI 
ND A PLACE DRAWING A SPECIFIC 

LINE, BY ADDING LINES IN BETWEE 
N THE PROGRAM LINES WITH THE STO 
P COMMAND. I CAN THEN JUST KE 

EP TYPING CONT UNTIL I FIND THE 

II 

1130 PRINT" LINE I AM LOOKING FOR. 
" :PRINT"IF YOU USE THIS METHOD, B 
E SURE TO GO BACK AND REMOVE ALL 
OF THESTOP COMMANDS YOU INSERTED 
AFTERYOU HAVE FINISHED YOUR EDITI 
NG." 

1140 GOSUB 2030 : GOSUB 2150 

1150 PRINT" DATA BOY IS THIS A 

GOOD ONE! THIS ALLOWS YOU TO STOR 
E DATA ON SEPERATE DATA LINES A 
ND READ IT WHENEVER YOU NEED IT. 
MANY TIMES THIS MAKES CHANGING 
THE DATA EASIER AND IS MUCH EAS 
IER TO WRITE. ALSO YOU CAN HAVE" 

1160 PR INT" A PARTICULAR FUNCTION, 
LIKE PRINT, PRINT OUT A LOT 

OF DATA WITHOUT HAVING TO WRITE 
THE WORDPRINT FOR EACH LINE." 

1170 GOSUB 2030 : GOSUB 2150 
1180 PRINT "HERE IS AN EXAMPLE OF 
HOW YOU MIGHT USE THE DATA COMM 
AND:" 

1190 PRINT" 10 FOR X=1 TO 1 0 : READ 
A$" : PRINT "20 PRINT A$ : NEXT X 
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1200 PRINT"30 DATA ONE, TWO, THREE, 
FOUR, FIVE, SIX, SEVEN, EIGHT, NINE, TE 
N 

1210 PRINT : PRINT"YOU WILL NOTICE 
THAT YOU DO NOT HAVE TO ENCLOSE Y 
OUR DATA ELEMENTS IN QUOTES 

, UNLESS YOU ARE USING SPACES OR 
PUNCTUATION" 

1220 GOSUB 2030 : GOSUB 2150 
1230 PRINT "ONE OF THE MAJOR USES 
OF THE DATA COMMAND IS IN COMP 
ARISON. YOU CAN WRITE A PROGRAM 
THAT ASK QUESTIONS AND HAVE TH 
E PROGRAM SEARCH DATA STATEM 

ENTS FOR COMPARISON." 

1240 PRINT" YOU CAN EVEN PUT THE Q 
UESTIONS AND THE ANSWERS IN DATA 
STATE- MENTS." 

1250 PRINT "DATA STATEMENTS ARE EV 
EN MORE USEFUL IN EXTENDED BASI 
C WHEN YOU HAVE LONG DRAW OR PL 
AY ROUTINES."; 

1260 GOSUB 2030:G0SUB 2160 
1270 PRINT "DIM SHORT FOR DIMINSI 
ON. ALLOWS YOU TO USE ONE V 

AR I ABLE NAME WITH DIFFERENT DIMI 
NS IONS TO STORE DATA." 

1280 PRINT "ASSUME YOU WANTED TO S 
TORE 100 OR SO NAMES AND ADDRESS 



ES. 


YOU WOULD RUN 


OUT 0 


F VAR 


IABLES 


IF YOU 


ASSIGNED 


A DI 


FFERE 


NT ONE 
ONE" 


TO EACH 


NAME, AD 


DRESS 


& PH 


1290 PR INT "BUT 


WITH THE 


DIM 


COMMA 


ND, YOU 


ONLY 


NEED ONE 


VAR I 


ABLE. 



1300 GOSUB 2030 : GOSUB 2160 

1310 PRINT "THE COMMAND IS USED LI 

KE THIS:":PRINT :PRINT"10 DIM A$(1 



00,4 


)": 


PRI 


NT" 


20 FOR 


X = 1 


TO 


100' 


f 


1320 


PR 


INT 


"30 


INPUT 


" ; CH 


R $ 


( 


34);' 


’EN 


TER 


NAME"; 


CHRSC34); 


" ; AS 


(X 




1 )" 




1330 


PR 


INT 


"40 


INPUT 


"; CH 


R $ 


( 


34);' 


’EN 


TER 


STR 


EET 


" ; C 


HRS (34 


i . ■> . 
' t r 


AS 


( 


X, 2 ) 1 


1 


1 340 


PR 


INT 


"50 


INPUT 


"; CH 


R $ 


( 


34);’ 


’EN 


TER 


CIT 


Y" ; 


CHRSC34); 


" ; AS 


(X 


/ 


3)" 




1350 


PR 


INT 


"60 


INPUT 


" ; CH 


R $ 


( 


34);’ 


’EN 


TER 


PH. 




CHR$ (34) ; 


"; AS 


(X 




4)" 




1360 


PR 


INT 


"70 


NEXT 


X" 











1370 PRINT :PRINT"THIS ALLOWS ALL 
100 NAMES INTO THE VARIABLE AS, 
WITH AS ( 1 , 1 ) BEING THE 1ST NAME 
. " ■ 

1380 GOSUB 2030: GOSUB 2160 
1390 PRINT "CAN YOU SHOW US HOW WE 
COULD REDUCE THE PREVIOUS PRO 
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GRAM TO JUST 5 PROGRAM LINES 

BY THE USE OF A DATA STATEMENT?" 
1400 PRINT: PRINT"ARE YOU WONDERIN 
G WHY WE NEED THE DIM COMMAND, 
WHY CAN'T WE JUST USE A$(100,4) 
WITHOUT THE DIM? WELL, THIS TAK 
ES A LOT OF MEMORY, AND IF YOU W 
ERE NOT USING SUBSCRIPTED VAR 

IABLES THENIT WOULD BE WASTED MEM 
ORY. 

1410 GOSUB 2030 : GOSUB 2160 
1420 PRINT "THE COMPUTER DOES ALLO 
W YOU TO USE SUBSCRIPTED VARIABL 
ES UP TO A POINT, THE POINT IS 9. 

YOU CANHAVE A$(9> WITHOUT THE DI 
M STATEMENT." 

1430 PRINT" DOUBLE OR MULTI DIMINS 
IONED VARIABLES ARE NOT ALLOW 

ED WITH- OUT THE DIM STATEMENT. 
1440 PRINT" AS YOU CAN SEE, PROGRA 
MS CAN BE MUCH SHORTER AND EASIER 
BY THE USE OF SUBSCRIPTED VAR I A 
BLES" 

1450 GOSUB 2030 : GOSUB 2160 
1460 PRINT "IF YOU HAD ENTERED ALL 
100 NAMESAND ADDRESSES AND PHONE 
NUMBERS INTO THE PROGRAM WE LIST 
ED, YOU COULD PRINT THEM ALL OUT 
WITH THIS SHORT ROUTINE:" 

1470 PR INT" 1 0 FOR X=1 TO 100:F0R 
Y=1 TO 4 20 PRINT A$(X,Y):NEXT Y 

,X" 

1480 PRINT :PRINT" LOOK! JUST 2 LIN 
ES FOR 100 NAMESWITH ADDRESSES AN 
D PHONE #'S THIS IS A POWERFUL 
COMMAND ! " 

1490 GOSUB 2030: CLS : PRINT" *** BA 
SIC COMMAND END ***" : prinT 
1500 PRINT "END. . REQUIRES NO EXPL 
ANATION. THIS COMMAND SIMPLY STO 
PS THE PROGRAM." 

1510 PRINT : PRINT" *** BASIC COMMA 
ND EXEC ***":PRINT" SHORT FOR EXEC 
UTE, THIS COMMAND TURNS CONTROL 0 
F THE COMPUTER OVER TO A MACHIN 
E LANGUAGE PROGRAM. EXEC 100 

00 STARTS EXECUTION AT MEMOR 

Y LOCATION 10000." 

1520 GOSUB 2030: CLS : PRINT" *** BA 
SIC COMMAND ELSE ***":PRINT 
1530 PRINT" SEE IF/THEN/ELSE COMM 
AND" 

1540 GOSUB 2030 : GOSUB 2170 

1550 PRINT "EOF SHORT FOR END 

OF FILE. THIS COMMAND ALLOWS YOU 
TO CHECKTO SEE IF YOU HAVE REACH 



ED THE END OF YOUR DATA FILE (FR 
OM THE CASSETTE). WHY?" 

1560 PR INT" I F YOU ARE ENTERING DA 
TA FROM THE CASSETTE AND YOU RE 
ACH THE END OF YOUR DATA AND ARE 
STILL TRYING TO GET MORE, YOU G 
ET AN ERROR, AND THIS STOPS YOUR 
PROGRAM EXECUTION." 

1570 GOSUB 2030 : GOSUB 2170 

1580 PRINT" HERE IS A SAMPLE PROGR 

AM: " : PRINT 

1 590 PR I NT" 1 0 0PEN"CHR$(34);"I";C 
HRS (34) ;",#-1,";CHR$(34);"DATA";C 
HRS (34) 

1600 PRINT" 20 INPUT0-1 ,A$: PRINTAS 

1610 PRINT" 30 IF E0F(-1)=0 THEN 2 
0 " 

1620 PRINT "40 CL0SE#1:END 
1630 PRINT :PRINT"THIS KEEPS YOU F 
ROM TRYING TO INPUT PAST THE EN 
DOF THE FILE" 

1640 GOSUB 2030 : GOSUB 2180 
1 650 PR I NT" T H E SERIES OF COMMANDS 
:":PRINT" FOR/NEXT/STEP FORMS LOOP 
S IN A PROGRAM SO THAT YOU CAN P 
ERFORM THE SAME FUNCTION SEVERAL 
TIMES WITHOUT HAVING TO WRITE THE 
COMMAND OVER AND OVER." 

1660 PRINT" FOR EXAMPLE, IF YOU WA 
NTED TO PRINTOUT THE 100 NAMES 
AND ADDRESSES IN THE PROGRAM 

WE HAD IN THE DIM COMMANDS." 

1670 PR INT"WITHOUT THE FOR/NEXT L 
OOP YOU WOULD HAVE TO TYPE:" 
1680 GOSUB 2030 : GOSUB 2180 
1690 PRINT"PRINT AS (1 , 1 ): PRINT AS 
(1,2)... A TOTAL OF 400 PRINT ST 
ATEMENTS . BUT BY USING A FOR/NEXT 
LOOP, YOU NEED ONLY 1 PRINT STA 
TEMENT. " 

1700 PR INT "WHEN YOU SPECIFY: FOR 
X=1 TO 1 00 YOU ARE TELLING THE COM 
PUTER THAT YOU ARE FORMING A L 
OOP AND THAT THE FIRST NUMBER FOR 
X IS 1 AND THAT WHEN THE VALUE 
OF X IS EQUAL TO 100 THEN THE LO 
OP ISFINISHED. EACH TIME THE COMP 
UTER"; 

1710 GOSUB 2030 : GOSUB 2180 
1720 PRINT" ENCOUNTERS A NEXT STAT 
EMENT (IN THIS CASE A NEXT X) 

IT WILL RETURN TO THE LINE WHERE 
YOU HAVE THE FOR X=1 TO 100" 
1730 PR INT" AND INCREASE THE VALUE 
OF X BY 1. IF YOU HAVE SPECIFIE 



D A STEP EG: FOR X=1 TO 100 STEP 
2 THEN THE VALUE OF X IS IN 

CREASEDBY THE VALUE OF STEP. IN T 
HE EXAMPLE ABOVE (STEP 2) THE 
VALUEWOULD BE INCREASED BY 2" 

1740 GOSUB 2030 : GOSUB 2180 
1750 PRINT" YOU MAY ALSO SPECIFY A 
STEP OF LESS THAN ONE, LIKE:":P 
R I NT " 1 0 FOR X=1 TO 100 STEP .2":P 
R INT"OR IF YOU WANT TO GO FROM 10 
0 TO 1, YOU MUST SPECIFY A STEP 
AND IT MUST BE A NEGATIVE NUMB 

ER" 

1760 PRINT "FOR X=100 TO 1 STEP-1 
1770 PRINT :PRINT"THIS WOULD START 
X OFF AT 100 AND DECRESE THE V 
ALUE OF X UNTIL IT REACHED 1 

91 

• 

1780 GOSUB 2030 : GOSUB 2190 
1790 PRINT "LET'S EXAMINE GOTO FIR 
ST.":PRINT"THIS COMMAND ALLOWS YO 
U TO GO TOA SPECIFIC LINE NUMBER 
IN YOUR PROGRAM, AND REQUIRES LI 
TTLE IN THE WAY OF AN EXPLANATION 
. IT ISUSED MAINLY WITH IF/THEN S 
TATE- MENTS TO SKIP CERTAIN LINES 
IN" 

1800 PR INT" A PROGRAM THAT WILL NO 
T BE USED. EG:" 

1810 GOSUB 2030:G0SUB 2180 
1820 PRINT "10 PRINT ";CHR$(34) ;"1 . 
PRINT"; CHR$ (34) 

1830 PRINT" ";CHR$(34);"2. 

INPUT"; CHR$ (34) 

1840 PRINT" ";CHR$(34);"3. 

INPUT FROM TAPE";CHR$(34) 

1850 PRINT"20 INPUTA:IF A=1 THEN 
GOTO 100 30 IF A=2 THEN GOTO 200 

40 IF A=3 THEN GOTO 400" 

1860 PRINT: PRINT "YOU CAN SEE HOW 
THIS WORKS." 

1870 GOSUB 2030:G0SUB 2180 
1880 PRINT" GOSUB WORKS LIKE GOTO 
EXCEPT THE COMPUTER REMEMBERS 
THE LINE NUMBER WHERE IT ENCOUNTE 
RED THE COMMAND GOSUB, AND WHEN I 
T ENCOUNTERS THE COMMAND RET 

URN, IT WILL GO BACK TO THE LINE 

II 

1890 PR INT" FOLLOWING THE LINE WHE 
RE YOU HADTHE GOSUB COMMAND, OR T 
0 THE NEXT STATEMENT IN THE LI 

NE IF YOU HAVE MORE THAN ONE ST 
ATEMENTIN THE LINE CONTAINING THE 
GOSUBCOMMAND." 
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1900 GOSUB 2030 : GOSUB 2180 
1910 PRINT "THIS MAKES IT EASY TO 
HAVE SUB-ROUTINES TO DO A SP 

ECIFIC THING AND ONLY HAVE TO W 
RITE IT ONCE. FOR INSTANCE IF YOU 
HAVE A PROGRAM WITH A LOT OF IN 
PUTS" 

1920 PRINT" IN IT, OR A DELAY, OR 
ANYTHING WHICH IS USED A LOT YOU 
CAN WRITE IT JUST ONCE WITH 

A HIGH LINE NUMBER LIKE 50000 AN 
D SEND THE COMPUTER TO IT FROM AN 
Y" 

1930 GOSUB 2030 : GOSUB 2180 
1940 PRINT "LINE IN YOUR PROGRAM A 
ND IT WILLRETURN TO THE LINE YOU 
SENT IT FROM, NO MATTER WHICH ON 
E IT IS." 

1950 PRINT : PRINT "SAMPLE PROGRAM:" 

1960 GOSUB 2030:G0SUB 2180 
1970 PRINT" 10 INPUT A$":PRINT"20 
IF A$=";CHR$(34);"END";CHR$(34)" 
THEN END" 

1980 PRINT" 30 GOSUB 50:G0T0 10 
1990 PRINT "50 PR I NT#-2, AS : RETUR N 
2000 PRINT : PRINT"AS YOU CAN SEE, 
WITH THIS PROGRAM WE ARE US 

ING BOTH A GOSUB AND GOTO COM 

MANDS" 

2010 GOSUB 2030 ( 

2020 RUN"BASIC2" 

2030 PRINT : PRINT"HIT ANY KEY TO C 
ONTINUE"; 

2040 A$=INKEY$: IF A$="" THEN 2040 
2050 CLS : RETURN 

2060 PRINT" *** LOGICAL OPERATOR 
AND ***": RETURN 

2070 PRINT" *** LOGICAL OPERATOR 
ASC ***": PRINT: RETURN 
2080 CLS:PRINT" *** AUDIO ON/OFF 
COMMAND ***":PRINT :RETURN 
2090 CLS:PRINT" *** CLOAD/CSAVE C 
OMMANDS ***":PRINT :RETURN 
2100 CLS:PRINT" *** LOGICAL OPERA 
TOR CHRS ***":PRINT :RETURN 
2110 CLS : PR INT" *** BASIC COMMAND 
CLOSE ***": PRINT : RETURN 
2120 CLS : PR INT" *** BASIC COMMAND 
CLS ***": PRINT: RETURN 
2130 CLS:PRINT" *** BASIC COMMAND 
CLEAR * * * " : PRINT : RETURN 
2140 CLS : PRINT" *** BASIC COMMAND 
CONT ***": PRINT : RETURN 
2150 CLS:PRINT" *** BASIC COMMAND 
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DATA ***»; PRINT : RETURN 
2160 CLS:PRINT" *** BASIC COMMAND 
DIM ***":PRINT:RETURN 
2170 CLS: PRINT" *** BASIC COMMAND 
EOF ***":PRINT :RETURN 
2180 CLS : PR INT" *BASIC COMMANDS F 
OR/NEXT /STEP*": PRINT: RETURN 
2190 CLS : PR INT" * BASIC COMMANDS 
GOTO/GOSUB *": PRINT : RETURN 

AFTER RUNNING MEMORY = 5084 
MEMORY REQUIRED = 17739 




10 CLS : GOSUB 2720' 

20 PRINV'THESE MAY BE THE MOST PO 
WERFUL COMMANDS AVAILABLE ON THE 
COLOR COMPUTER. THEY LET YOU TES 
T FOR A TRUE OR FALSE." 

30 PRINT"EG: IF the dog caught th 
e rabbit THEN stop chasing it 
ELSE continue the chase." 

40 PRINT" IN THIS EXAMPLE, THE STA 
TEMENT : THE DOG CAUGHT THE RABBI 
T: IS BEING ANALYIZED TO SEE IF 
IT IS TRUE OR FALSE" 

50 GOSUB 2690 : GOSUB 2720 
60 PR INT" I F IT WERE TRUE, THEN TH 
E ACTIONTAKEN WAS TO STOP CHASING 
IT. THE ELSE COMMAND LETS YOU 
TAKE OTHER ACTION IF THE STATEME 
NT IS FALSE, IN OUR EXAMPLE IT 
WAS TO CONTINUE CHASING THE RABBI 
T." 

70 PRINT : PRINT"NOW LET'S APPLY TH 
IS TO OUR COMPUTER. WE ARE GO 

ING TO WRITE A SHORT PROGRAM TO I 
LLISTRATE HOW TO USE THE IF/THE 
N COMMANDS" 

80 GOSUB 2690 : GOSUB 2720 
90 PRINT" 10 A$="CHR$ (34); "RABBIT" 

100 PRINT"20 PRINT "CHR$(34);" CAN 
YOU NAME AN ANIMAL WITH LONG EARS 
, THAT HOPS AND MULT I PL I E S " ; C H R $ ( 
34) 

110 PRINT" 30 INPUTBS 
120 PRINT "40 IF A$=B$ THEN PRINT" 
; CHRS (34) ; "HEY, YOUR RIGHT! IT IS 
A";CHR$(34);"A$ ELSE PRINT";CHR$ 



(34) ; "SORRY YOUR WRONG. IT'S A "; 
CHR$(34) ;"A$" 

130 PRINT :PRINT" IF THE PERSON TYP 
ES IN RABBIT THEN A$ WILL EQUAL 
B$ AND THE STATEMENT IS TRUE." 

140 GOSUB 2690:G0SUB 2720 
150 P R I NT " I F THE PERSON TYPED IN 
HARE OR BUNNY, THE STATEMENT MAY 
BE TRUE, BUT SINCE IT DOESN* 

T MATCH RABBIT, IT'S FALSE, 

SO YOU MUST BE CAREFUL HOW YOU 
ENTER THINGS AS JUST ONE LET 
TER OR NUMBER DIFFERENCE WILL BE 

II 

160 PRINT "REPORTED AS FALSE." 

170 PRINT : PRINT"SEE IF YOU CAN FI 
ND OTHER WAYS TO USE IF/THEN/ELS 
E COMMANDS." 

180 GOSUB 2690 : GOSUB 2730 
190 PRINT "INKEYS PRONOUNCED INKEY 
-STRING. THIS COMMAND ALLOWS YOU 
TO RUN A PROGRAM AND CHECK THE K 
E YBOARD FOR A KEYPUSH WHEN EVER YO 
U WANTWITHOUT INTERUPTION OF THE 
PROGRAM. IT DOESN'T STOP AND 
WAIT FOR THE INPUT." 

200 PRINT "AT THE BOTTOM OF THIS S 
CREEN YOUSEE CHIT ANY KEY TO CONT 
INUE]. WE ARE USING THE INKEYS F 
UNCTION"; 

210 PRINT "TO DO THIS. BUT WE ARE 
NOT DOINGANYTHING ELSE WHILE WE W 
AIT." 

220 GOSUB 2690 : GOSUB 2730 
230 PRINT" WE COULD BE DOING OTHER 
THINGS WHILE WE WAIT FOR YOU TO 
READ THIS, LIKE SCROLL THE HEA 
DER." : PRINT : PR INT"OBSERVE" 

240 FOR X=1 024 TO 1055 

250 IF X = 1 05 5 THEN P = PEEK(1024) E 

LSE P=PEEK ( X+1 ) 

260 A$=INKEY$: IF A$<>"" THEN 290 

270 POKEX, P : NEXT X 

280 GOTO 240 

290 CLS : GOSUB 2730 

300 PR INT"W ANT TO KNOW HOW WE DID 
THIS?" : PRINT : PRINT"LOOK AT THE P 
ROGRAM" : PRINT 

310 PRINT "10 FOR X=1024 TO 1055": 
PRINT "20 IF X=1 055 THEN P=PEEK(10 
24) ELSE P=PEEK(X+1 ) 

320 PRINT" 30 A$ = INKEY$:IF ASO";S 
TRING$(2,34) ;"THEN 50" 

330 PR INT"40 POKE X,P:NEXT X:GOTO 
1 0" 



340 PRINT "50 CONTINUE PROGRAM" 

350 GOSUB 2690 : GOS UB 2730 
360 PRINT" INKEYS DOES NOT PRINT W 
HAT YOU INPUT ON THE SCREEN (UNL 
ESS YOU TELL IT TO) SO THE INKEYS 
IS A GOOD FUNCTION TO USE WHEN 
YOU ARE ENTERING YOUR SECRET CO 
DE OR PASSWORD IN FRONT OF FRIE 
NDS . " 

370 PRINT "THE INKEYS ALSO SERVES 
ANOTHER FUNCTION AS IT WILL TAKE 
ANY- THING YOU INPUT FROM THE 
KEY- BOARD, ARROW KEYS, CLEAR E 
TC." 

380 GOSUB 2690:G0SUB 2730 
390 PRINT" SO YOU COULD WRITE A PR 
OGRAM TO ACCEPT INPUT FROM THE KE 
YBOARD AND SEND THEM DIRECTLY TO 
THE PRINTER. IF YOU DID WRITE 
THAT PROGRAM, HITTING THE DOWN A 
RROW WOULD MAKE THE PAPER ADVANCE 
(LINEFEED) AND HITTING THE CL 

EAR" 

400 PR INT"KE Y WOULD SEND A TOP OF 
FORM CODE TO THE PRINTER, ADV 
ANCING IT TO THE NEXT PAGE." 

410 GOSUB 2690 : GOSUB 2730 
420 PRINT "AS YOU CAN SEE, THE INK 
EYS COMMAND HAS A LOT OF USE 

S. IT DOES HAVE IT'S LIMITAT 

IONS TOO. FOR INSTANCE, YOU CAN 

'T INPUT DATA INTO A NUMERIC 

VARIABLE WITH THE INKEYS." 
430 PRINT "THE VARIABLE CAN BE CON 
VERTED INTO A NUMERIC VARIABLE 
THOUGH. ALSO, SINCE IT DOESN'T PR 
INT TO THE SCREEN, YOU MAY FIND I 
T DIFFICULT TO REMEMBER JUST 

WHAT YOU HAVE ENTERED AND WHAT YO 
U HAVEN'T."; 

440 GOSUB 2690 : GOSUB 2740 
450 PRINT" INPUT TELLS THE COMPUTE 
R THAT THERE IS DATA COMING FRO 
M THE KEYBOARD, TO STOP AND WAI 
T FOR IT. IT ALSO PRINTS A ? AN 
D A CURSOR." 

460 PRINT" IT WILL ACCEPT THE DATA 
INTO THEVARIABLE YOU HAVE ASSIGN 
ED TO THE INPUT ONLY WHEN YOU H 
IT THE ENTER KEY. SO CORRECTIONS 
CAN BEMADE BEFORE ENTERING." 

470 GOSUB 2690:GOSUB 2740 
480 PRINT"THE DATA DOES NOT HAVE 
TO COME FROM THE KEYBOARD THOUGH 
, IT CAN COME FROM THE CASSETT 
E.":PRINT"IF YOU WANT THE INPUT F 
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ROM THE CASSETTE INSTEAD OF THE 
KEYBOARDYOUR COMMAND WOULD BE:" 
490 PRINT "INPUT#-1, AS" :PRINT" THE 
#-1 TELLS THECOMPUTER THAT THE IN 
PUT IS FROM TAPE." 

500 PRINT "ACTUALLY AN INPUT FROM 
THE KEY- BOARD SHOULD BE: INPUT#0 

,A$ IF THERE IS NO #XX THEN T 

HE COMPUTER ASSUMES THAT IT'S 

0 . " ; 

510 GOSUB 2690 : GOSUB 2740 
520 PRINT" WHY #-1 AND NOT #1? ":P 
RINT"THE BUFFERS #1 THRU #9 ARE S 
ET ASIDE FOR DISK 8UFFERS AND TH 
E POWERS THAT BE (RADIO SHACK) 
THINK THAT -1 IS EASIER TO 
REMEMBER THAN #10 OR #254." 

530 PRINT: PRINT"I HAVE REFERED TO 
NUMERIC VARIABLES, THERE A 

RE ALSO STRING VARIABLES. T 

HE INPUT COMMAND SEPERATES TH 

E TWO SO IF YOU WANT A NUMBER, 
YOU WON'T ACCIDENTLY GET A STRIN 
G(LETTER)"; 

540 GOSUB 2690 : GOSUB 2740 
550 PRINT" THE $ AFTER A VARIABLE 
TELLS THE COMPUTER IT'S A STRI 

NG (LIKE A NAME) SO: INPUT A 

$ MEANS THAT THE COMPUTER WI 

LL ACCEPT ANYTHING ENTERED, BU 

T WILL TREAT IT LIKE A NAME, A 
ND YOU CAN'T MULTIPLY JOE * JOHN 

II 

560 PRINT "ON THE OTHER HAND IF YO 
U HAVE INPUT A THE COMPUTER IS 
THEN EXPECTING A NUMBER AND IF 
YOU ACCIDENTLY ENTER A LETTER, 
YOU WILL GET ? R E DO AND THE COMP 
UTER WILL STILL BE WAITING FOR A 
#"; 

570 GOSUB 2690 : GOSUB 2740 
580 PR I NT "INPUT ALLOWS YOU TO USE 
A PROMPTON THE SCREEN ALSO, AND 
LONG VARIABLE NAMES (2 SIGNIFI 

CANT) " 

590 PRINT "SO YOU CAN HAVE:":PRINT 
: PR I NT" IN PUT"; C HRS (34) ; "ENTER NAM 
E ";CHR$(34);";NAME$":PRINT 
600 PRINT "WHEN THE COMMAND IS ENC 
OUNTERED AND THE COMPUTER IS AWAI 

TING INPUT, IT LOOKS LIKE THIS 

. •* 

610 INPUT "ENTER NAME";A$ 

620 CLS : GOSUB 2750 

630 PRINT "INT SHORT FOR INTEGER. 

II \ 



640 PRINT" THIS TRUNCIATES ALL DEC 
IMALS AND RETURNS THE WHOLE NU 
MBER ONLY. IT DOES NOT ROUND 
OFF ANYTHING, SO INT(6.01)=6 A 
ND INT(6. 99999) STILL EQUALS 6 

99 

• 

650 PRINT "THE INT COMMAND IS VERY 
USEFUL IN CONTROLING LONG DECIM 
ALS THATYOU DON'T WANT, AND TO BE 
SURE THAT YOU GET THE WHOLE NUM 
BERS ONLY." 

660 GOSUB 2690: GOSUB 2760 
670 PR INT "THE JOYSTK FUNCTION RET 
URNS A NUMBER BETWEEN 0 AND 63 
FROM THE JOYSTICK SPECIFIED." 
680 PRINT" THERE ARE ONLY 2 JOYSTI 
CKS, BUT EACH CAN BE MOVED ON 2 D 
IFFERENTPLANES EG. PLANE 1= UP & 
DOWN PLANE 2= LEFT AND RIGHT." 
690 PRINT" THEREFORE WE MUST INPUT 
THEM AS IF THERE WERE 4. (0 TO 3 

). I BET YOU CAN THINK OF 10 

O'S OF WAYS TO USE THE JOYSTICKS. 

II 

700 GOSUB 2690 : GOSUB 2760 

710 PRINT" WE CAN MAKE A DRAWING P 

ROGRAM: " 

720 PRINT "10 A=J0YSTK(0) :B=JOYSTK 
(1 )" 

730 PRINT" 20 S E T ( A , ( B / 2 ) , 8 ) 

740 PR I NT" 30 GOTO 10" 

750 PRINT :PRINT"WHAT TO SEE HOW T 
HIS WORKS?" 

760 PRINT :PRINT" ENTER Q TO EXIT D 
RAWING PROGRAM" 

770 GOSUB 2690 : I F A$="Y" THEN 780 
ELSE CLS : GOT 0 830 
780 CLSO 

790 A=J0YSTK(0) :B=J0YSTK(1 ) 

800 SET (A, (B / 2 ) , 8 ) 

810 A$= INKEYS: IF A$ = "Q" THEN 830 
820 GOTO 790 
830 GOSUB 2770 

840 PRINT "LEFTS - PRONOUNCED LEFT 
-STRING IS A COMMAND THAT ALLOWS 
YOU TO SEPERATE A CERTAIN PORTIO 
N OF THE STRING (YOU SPECIFY) 0 
N THE LEFT HAND SIDE." 

850 PRINT "SUPPOSE WE HAVE STORED 
ON TAPE A HUNDRED NAMES, ADDRESS 
ES AND THE DATE THEY WERE PUT ON 
TAPE." 

860 PRINT "NOW, FURTHER SUPPOSE TH 
AT WE WANT TO SEPERATE THOSE T 

HAT WERE ENTERED ON THE 10TH 

MONTH." 
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870 GOSUB 2690 : GOS UB 2770 
880 PRINT "IF WE INPUT THESE FROM 
THE TAPE AND WE HAVE ASSIGNED THE 
DATES AS THE VARIABLE FOR THE D 
ATE. WE CAN MATCH THOSE WHO WER 
E ENTERED IN OCTOBER LIKE THI 

S : " 



890 


PRINT 


"10 


OPEN"; C 


HRS (34) ; 


M T »» . 
A / 


H R $ ( 


34);" 


,#- 1 


, " ; C H R $ 


( 34 ) ; "N AME" ; 


HRS ( 


34) 










900 


PRINT 


"20 


FOR X=1 


TO 100 




910 


PRINT 


"30 


INPUT#- 


1 ,N$, ADS 


, D AT 


o> 

920 


PRINT 


"40 


IF LEFT$(DATE$, 


2 ) = " 


CHRS 


(34); 


"10" 


;CHR$(34)" THEN 


PRI 


T NS 


, ADS, 


DATES" 






930 


PRINT 


"50 


NEXT X 






940 


GOSUB 


2690 : GOSUB 


2770 




950 


PRINT 


"THI 


S WOULD 


SELECTI 


VELY 


PRINT 


ONLY 


THOSE 


WHO WERE 


ENT 



RED ON THE 10TH MONTH." 

960 PRINT : PRINT"I USE THE LEFTS F 
UNCTION A LOT IN MY INPUTS, SO W 
HEN YOU ARE ASK TO ANSWER YES 0 
R NO, IT DOESN'T MATTER IF YO 

U TYPE YES OR Y OR YEA, THE ANSW 
ER IS STILLACCEPTED AS YES AS LON 
G AS THE FIRST LETTER IS A Y." 
970 GOSUB 2690 : GOSUB 2770 
980 PR I NT" I DO IT LIKE THIS.." 

990 PRINT "1000 INPUT"; CHRS (34) ; "W 
ANT A PRINTOUT ";CHR$(34);";A$ 

1000 PRINT "1020 A$=LEFT$(A$,1) :RE 
TURN 

1010 PRINT : PRINT"THIS 
SUBROUTINE THAT COULD 
ROM ANY LINE IN THE 
'LL SAY 20 AND THE 

LD RETURN TO LINE 30. 



WOULD BE A 
BE CALLED F 
PROGRAM, WE 
PROGRAM WOU 
SO 30 WOULD 



BE 

1020 PRINT :PRINT"30 IF A$=";CHR$( 
34) ;"Y";CHR$(34);" THEN GOSUB XXX 
X 

1030 GOSUB 2690:GOSUB 2780 
1040 PRINT "LEN -- SHORT FOR LENGT 
H (MEANING LENGTH OF THE 

STRING)" 

1050 PRINT"THIS COMMAND ALLOWS YO 
U TO FIND THE LENGTH OF A STRING. 

EG: A=LEN(A$)" 

1060 PRINT "WHY WOULD YOU WANT TO 
FIND THE LENGTH OF A STRING?" 
1070 PRINT "WELL, THERE ARE MANY R 
EASONS WE WILL ILLISTRATE JUST 
ONE." 

1080 GOSUB 2690 : GOSUB 2780 



1090 PRINT" 10 INPUT ";CHR$(34);"EN 
TER YOUR NAME";CHR$(34);";A$" 

1100 PRINT "20 A=LEN(A$)" 

1110 PR I NT" 30 FOR X = 1 TO A" 

1120 PR INT"40 B$=MID$ (A$,X,1 ) : I F 

B$=CHR$(32) THEN 60 

1130 PR I NT" 5 0 NEXT X 

1140 PR INT"60 B$=LEFT$(A$,X) : C$=R 

IGHT$(A$,A-X) 

1150 PRINT"70 PRINT C$; " ; CHRS ( 34 ) 
;", CHRS (34) ;"B$" 

1160 PRINT :PRINT"WHAT DOES THIS P 
ROGRAM DO?" 

1170 GOSUB 2690 : GOSUB 2780 
1180 PRINT "LET ME SHOW YOU:":PRIN 
T" PLEASE ENTER YOUR NAME: (FIRST 

AND LAST ONLY)":INPUTA$ 

1190 A=LEN ( AS) : FOR X=1 TO A 
1200 B$=MID$(A$,X,1 ) :IF B$=CHR$(3 
2) THEN 1220 ELSE NEXT X 
1210 PRINT"SORR Y, I NEED A SPACE" 
: GOTO 1180 

1220 B$=LEFT$(A$,X) :C$=RIGHT$(A$, 
A-X) 

1230 PRINT :PRINTC$;", ";B$ 

1240 PRINT : PRINT"WE HAVE JUST PUT 
YOUR LAST NAME FIRST. WITH A LIT 
TLE PRACTICE WE COULD DO A WHOL 
E SERIES OF NAMES LIKE THIS." 
1250 GOSUB 2690 : GOSUB 2790 
1260 PRINT "THE LIST COMMAND LETS 
YOU LIST ON THE SCREEN, ALL OR P 
ART OF YOUR BASIC PROGRAM." 

1270 PRINT "THIS COMMAND IS ALWAYS 
ENTERED DIRECTLY FROM THE KEYBO 
ARD. JUST TYPING LIST, WILL L 

1ST THE ENTIRE PROGRAM. TYPING LI 
ST-100 WILL LIST PROGRAM LINES 0 
TO 100LIST 100-150 WILL LIST PROG 
RAM LINES STARTING AT 100 AND EN 
DING"; 

1280 PR I NT " AT PROGRAM LINE 150. T 
YPING LIST 100- WILL LIST LI 

NES 100 TO THE END OF THE PROGRA 
M"; 

1290 GOSUB 2690: GOSUB 2800 
1300 PRINT "THE LUST COMMAND DOES 
EXACTLY THE SAME AS THE LIST CO 
MMAND, EXECPT THAT IT IS LISTED 
ON THE PRINTER INSTEAD OF THE SC 
REEN." 

1310 GOSUB 2690 : GOSUB 2810 
1320 PRINT "THE MOTOR ON OR MOTOR 
OFF TURNS THE CASSETTE MOTO 

R ON OR OFF. THIS COMMAND IS USE 
FUL WHEN YOU WANT TO MOVE A T 
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APE TO A BLANK SPOT BETWEEN PR 
OGRAMSOR TO PLAY MUSIC OR VOICE T 
HRU THE TV. VIA THE COMPUTER." 
1330 GOSUB 2690:G0SUB 2820 
1340 PRINT"MID$ (PRONOUNCED MID 
STRING)" : PRINT M THIS FUNCTION IS V 
ERY SIMILAR . TO LEFTS, EXCEPT IT 
LETS YOU FIND THINGS IN THE M 
IDDLE OF THE STRING." 

1350 PRINT :PRINT"A$="; CHR$ (34) ;"T 
HISISATEST";CHR$(34) 

1360 PRINT : PRINT"TO GET THE CIS] 
OUT OF A$ IN THE EXAMPLE, YOU 
WOULD TYPE: B$=M I D$ ( A$, 5 , 2 ) " 

1370 GOSUB 2690 : GOSUB 2820 
1380 PRINT" B$=MID$(A$,5,2)":PR 
INT 

1390 PR INT"WE ARE USING B$ TO STO 
RE OUR ANSWER, A$ IS THE STRIN 
G WE ARE WORKING ON. THE 5 IS THE 
STARTING POINT AND- THE 2 
IS THE NUMBER OF CHARACTERS WE WA 
NT. " 

1400 PRINT : PRINT"NOW AS CONTAINED 
: THISISATEST" 

1410 PR INT" I F WE NUMBER IT 1234 
5678901" 

1420 PRINT "YOU WILL NOTICE THAT T 
HE 5TH & 6TH CHARACTERS ARE TH 
E CIS]" 

1430 GOSUB 2690 : GOSUB 2820 
1440 PR INT"ONE OF THE MAIN USES 0 
F MIDS IS TO FIND SOMETHING IN TH 
E MIDDLE OF THE STRING. WE USED L 
EFTS A WHILE BACK TO SEPERATE TH 
E MONTH (10) OUT OF A DATE: 

10/XX/XX. WE CAN USE MIDS T 

0" 

1450 PR INT" F IND THE DAY OF THE MO 
NTH OUT OF THE DATE 10/29/83. I 
T MAY TAKE A LITTLE MORE BECAU 
SE THE LENGTH MAY NOT ALWAYS BE 
THE SAME. EG. 5/2/83 IS SHORTE 
R." 

1460 GOSUB 2690 : GOSUB 2820 
1470 PRINT "10 A=LEN(A$)":PRINT"20 
FOR X=1 TO A": PRINT "30 B$=MID$(A 
$,X,1 )":PRINT"40 IF B$=CHR$ (47) TH 
EN C=X : GOTO60"; 

1480 PRINT "50 NEXT X":PRINT"60 B$ 
= MID$(A$,X + 1,2)":PRINT"70 B = VAL (B 
$)" 

1490 PRINT :PRINT" IN THIS PROGRAM, 
WE ARE FIRST FINDING THE LENGT 
H OF THE STRINGIN LINE 10." 

1500 GOSUB 2690 : GOSUB 2820 



1510 PRINT"THE LENGTH OF THE STRI 
NG TELLS US THE UPPER LIMIT OF X 
, OR HOW MANY CHARACTERS TO SEARC 
H THRU." 

1520 PR INT"WHEN B$ EQUALS A / WE 
EXIT THE LOOP, BECAUSE WE KNOW T 
HAT THE NEXT 1 OR 2 CHARACTERS A 
FTER THE/ ARE THE DAY. SO IN LINE 
60 WE" 

1530 PRINT" GET THE NEXT 2 CHARACT 
ERS. NOW WE MAY HAVE A 10 OR 

WE MAY HAVE A 5/ BUT IT DOESN'T 
MATTER.;'; 

1540 PR INT "BECAUSE WE ARE THEN US 
ING THE VAL CSHORT FOR VALUE] F 
UNCTION" 

1550 GOSUB 2690 : GOSUB 2820 
1560 PRINT "TO CHANGE THE STRING B 
$ INTO A NUMERIC VARIABLE B. SO 
IF B$=1 0 THEN THE VALUE OF 8 WILL 
BE 10 AND IF B$=5/ , SINCE THE / 
DOES NOT HAVE A NUMERIC VALUE I 
T IS IGNORED AND B WILL EQUAL 5. 

If 

1570 PRINT: PRINT"B WILL NOW BE EQ 
UAL TO THE DAY OF THE MONTH. ":PR 
INT :PRINT"CAN YOU THINK OF OTHER 
USES FOR THE MIDS FUNCTION?" 

1580 GOSUB 2690: CLS : PRINT" *** B 
ASIC COMMAND MEM ***":PRINT 
1590 PRINT"MEM SHORT FOR MEMORY 
WILL LET YOU KNOW HOW MUCH F 

REE MEMORY YOU HAVE LEFT FOR 

YOUR BASIC PROGRAMS, IN BYTES. 

II 

1600 PRINT : PRINT"ALL YOU HAVE TO 
DO TO USE IT IS TYPE: PRINT MEM 0 
R ON THE COLOR COMPUTER ?MEM" 

1610 PRINT :PRINT"HIT ANY KEY TO C 
ONTINUE" 

1620 GOSUB 2690 : GOSUB 2830 
1630 PRINT "THIS COMMAND ERASES YO 
UR BASIC PROGRAM AND CLEARS ALL 
VARIABLES" 

1640 PRINT: PRINT" *** BASIC COMM 
AND NEXT ***" 

1650 PRINT :PRINT"SEE THE FOR/NEXT 
/ELSE COMMANDS" 

1660 GOSUB 2690:G0SUB 2840 
1670 PRINT "NOT IS A LOGICAL OPERA 
TOR. IT REVERSES THE NUMBER, 

BIT BY BIT. IF YOU PRINT N0T5 
YOU WILL GET A -6." 

1680 PRINT "THIS OPERATOR IS USEFU 
L IN EX-TENDED BASIC IN THE 

GRAPHICS MODE FOR INVERTING THE G 
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RAPHICS DISPLAY." 

1690 GOSUB 2690 : GOSUB 2850 
1700 PRINT"OPEN ALLOWS YOU TO OP 
EN FILES ON THE TAPE PLAYER FOR 
EITHER INPUT OR OUTPUT." 

1710 PRINT :PRINT"THE SYNTAX FOR 0 
PEN FOR OUTPUT: 100 OPEN ";CHR$<3 
4);"0";CHR$(34);",#-1,";CHR$(34); 
" PROGRAM ";CHR$(34) 

1720 PRINT :PRINT"THE SYNTAX FOR 0 
PEN FOR INPUT: 100 OPEN ";CHR$(3 

4);"I";CHR$(34);",#-1,";CHR$(34); 
"PROGRAM"; CHR$ (34) 

1730 GOSUB 2690 : GOSUB 2850 
1740 PRINT"WHAT THE COMMAND DOES 
IS: ON OUTPUT, WRITES AN OP 

ENING HEADER ON THE TAPE AND T 
HE PROGRAM NAME." 

1750 PRINT : PR INT"ON INPUT, STARTS 
LOOKING ON THE TAPE FOR AN OPENI 
NG HEADER AND IF IT FINDS IT, SE 
TS THE COMPUTER TO ACCEPT 

DATA FROM THE TAPE." 

1760 GOSUB 2690 : GOSUB 2860 
1770 PRINT "THIS COMMAND IS USED W 
ITH GOTO OR GOSUB TO SAVE A 

LOT OF TYPING." 

1780 PRINT "IF YOU HAD A MENU WITH 
SAY 10 OPTIONS ON IT, WITHOUT 
THIS COMMAND YOU WOULD HAVE T 

0 TYPE 10 LINES TO TELL THE COMP 
UTER WHERE IN THE PROGRAM TO GO 

II 

1790 PRINT "WITH THIS PROGRAM YOU 
ONLY NEED 1 LINE." 

1800 GOSUB 2690 : GOSUB 2860 

1810 PRINT "100 ON X GOSUB 200,300 

,400,500 

1820 PRINT: PRINT"IN OUR EXAMPLE A 
BOVE WE HAVE 4 ELEMENTS. IF X=1 
THEN LINE 200 IS SELECTED, IF X= 
2 THEN LINE 300 IS SELECTED, ET 
C., ETC." 

1830 PRINT :PRINT" WITHOUT THIS COM 
MAND YOU WOULD HAVE TO HAVE A SE 
T LIKE THIS:" 

1840 GOSUB 2690 : GOSUB 2860 

1850 PR INT" 1 00 IF X=1 THEN GOSUB 

200 " 

1860 PRINT" 110 IF X = 2 THEN GOSUB 
300" 

1870 PRINT" 120 IF X=3 THEN GOSUB 
400" 

1880 PRINT"1 30 IF X=4 THEN GOSUB 
500" 

1890 PRINT :PRINT"SEE HOW MUCH EAS 



IER IT WAS WITH " 

1900 PRINT" 100 ON X GOSUB 200,300 
,400,500 

1910 PRINT : PRINT"CAN YOU IMAGINE 
HOW MUCH EASIER IT IS WHEN YOU HA 
VE 10 LINES?" 

1920 GOSUB 2690 : GOSUB 2870 
1930 PRINT"ANOTHER MATHEMATICAL 0 
PERATOR FOR BINARY NUMBERS. WIT 
H THIS ONE, IF THE BIT IS SET I 
N THE FIRST NUMBER, OR THE BIT 

IS SET IN THE SECOND NUMBER, THEN 
THE BIT WILL BE SET IN THE ANSW 
ER." 

1940 PRINT "EG:" 

1950 PRINT" FIRST # 11100011 

(227)" 

1960 PRINT" 2ND U 00111001 

( 57 )" 

1970 PRINT" ANSWER 11111011 

(251 )" 

1980 GOSUB 2690 : GOSUB 2870 
1990 PRINT "MAKE A LIST DESCRIBING 
3 USES YOU COULD MAKE OF THIS 
OPERATOR"' 

2000 PRINT :PRINT" ANOTHER USE FOR 
OR IS WITH THE IF/THEN/ELSE COMM 
ANDS. IT IS USED LIKE THIS:" 

2010 PRINT :PRINT" 100 IF A = 1 OR A = 
2 THEN GOTO 200" 

2020 GOSUB 2690 : GOSUB 2880 
2030 PRINT"THERE ARE 16384 MEMORY 
LOCATIONS IN A 16K COMPUTER, 3276 
8 IN A 32K AND 65536 IN A 64K." 

2040 PR INT "THE COMMAND PEEK, LET’ 
S YOU LOOKAT ANY ONE OF THESE LOC 
ATIONS . EVERY LOCATION IN THE CO 
MPUTER WILL CONTAIN A NUMBER BET 
WEEN 0 AND 255, SOME OF THEM MA 
Y REPRESENT A LETTER IN THE A 

SCII SET, BUT TO THE COMPUTER, TH 
ERE IS ONLY NUMBERS." 

2050 GOSUB 2690 : GOSUB 2880 
2060 PR INT" IT IS USEFUL SOMETIMES 
TO SEE EXACTLY WHAT IS IN A ME 
MORY LOCATION. A PRINT PEEK(X 

XX) WILL TELL YOU." 

2070 PR INT "HERE ARE SOME USES FOR 
THIS COMMAND:" 

2080 PR INT" 1 . FIND THE STOP, START 
& EXEC ADDRESSES OF A MACH I 

NE LANGUAGE PROGRAM." 

2090 PR INT" 2 . SEE IF THE JOYSTICK 
BUTTON IS BEING PUSHED." 

2100 GOSUB 2690:G0SUB 2880 
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2110 PRINT "THERE ARE JUST HUNDRED 
S OF WAYS TO USE PEEK. IF CONJUCT 
ION WITH THE COMMAND POKE , YOU CA 
N STORE DATA (PAGE NUMBERS?) (LIN 
ES PER PAGE?) IN SPECIFIC MEMORY 
LOCATIONS AND READ THEM BAC 
K WITH THE PEEK COMMAND." 

2120 PRINT : PRINT" YOUR TEACHER WIL 
L WANT YOU TO FIND A USE FOR TH 
IS COMMAND. SEE IF YOU CAN FIN 
D A GOOD ONE." 

2130 GOSUB 2690 : GOSUB 2890 
2140 PRINT "POKE IS THE OPPOSITE 0 
F PEEK.. POKE ALLOWS YOU TO POKE 
A NUMBERINTO A SPECIFIC MEMORY L 
OCATION." 

2150 PRINT :PRINT"EG: IF YOU DON'T 
LIKE THE GREEN SCREEN. 

H 

2160 PRINT :PRINT" TYPE POKE 35 

9,57:SCREEN0,1":PRINT:PRINT" YOU W 
ILL NOW HAVE A PINK SCREEN" 

2170 GOSUB 2690 : GOSUB 2890 
2180 PRINT" YOU CAN USE POKE TO:" 
2190 PRINT "1 . CHANGE PRINTER BAUD 
RATE 2. CHANGE PRINTER WIDTH 

3. CHANGE THE VALUE OF A 
NY MEMORY LOCATION IN RAM 

II 

m 

2200 PRINT: PRINT"CAN YOU FIND A S 
PECIFIC USE FOR THE POKE COMMAND? 

CAN YOU WRITE A PROGRAM USING PE 
EK & POKE?" 

2210 GOSUB 2690 : GOSUB 2900 
2220 PR INT"WITH COLOR BASIC YOU H 
AVE WHAT IS CALLED (LOW RESOLUTI 
ON COLOR GRAPHICS) WITH 64 POINTS 
WIDE AND 32 POINTS HIGH. IF YO 
U ARE USING THESE GRAPHICS, YOU 
CAN" 

2230 PRINT "FIND OUT IF A POINT IS 
SET OR RESET, AND WHAT COLOR I 
T IS WITH THE POINT COMMAND. 

IT IS USED LIKE THIS:" 

2240 PRINT "100 A=PO I NT ( 1 2, 1 2 ) " 
2250 GOSUB 2690:G0SUB 2900 



2260 


PRINT "YOU 


CAN ALSO 


USE 


VAR I 


A 


BLES : 


100 A 


=POINT ( X, 


Y)" 






2270 


PRINT :PRINT"IF YOU 


ARE 


WRIT 


I 


NG A 


GAME SAY, 


YOU CAN 


USE 


THIS 




FUNCT 


ION TO 


SEE IF YOUR 


BOMB 


0 



R BULLET HAS HIT ITS TARGET." 
2280 GOSUB 2690:G0SUB 2910 
2290 PRINT "PRINT IS USED SEVERAL 
WAYS. WE WILL LOOK AT PRINT, ?, 
PRINTS PRINT #-1 , PRINT #-2, ETC. 
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2300 PRINT" YOU HAVE PROBABLY NOTI 
CED BY NOWTHAT YOU CAN INTERCHANG 
E THE WORD PRINT WITH THE ? ON 
THE COLOR COMPUTER. THIS IS T 

0 SAVE A LOT OF TYPING TIME." 

2310 PRINT: PRINT"THE COMMAND PRIN 
T, PRINTS A SPECIFIC MESSAGE 

ON THE TV SCREEN." 

2320 GOSUB 2690:G0SUB 2910 

2330 PRINT" THE SYNTAX FOR PRINT I 

S:" 



2340 PRINT "PRINT "; CHR$ (34) ; "MY N 
AME";CHR$(34) 

DDTHIT'lftD DDTMT f\D DDTMT 



2350 


PR 


INT 


"OR 


PRINT A$, 


OR 


PRINT 


1 23 






OR 


PRINT A, ET 


C." 




2360 


PR 


INT 


: PR 


INT" PRINTS . 


• • • 


THIS 


PRI 


NTS 


AT 


A 


SPECIFIC 


LOC 


ATION 


ON 


THE 


SC 


REE 


N" 






2370 


PR 


INT 


"TY 


PING PRINT3224, 


" ; c H R 


$(34 


);" 


MY 


NAM 


E";CHR$(34) 






2380 


PR 


INT 


: PR 


INT"WILL PUT 


TH 


E WOR 


DS [MY 


NAM 


E] 


AT SCREEN 


LO 


CATIO 


N 224": 


PRI 


NT" 


(ABOUT THE C 


ENTER OF 


THE 


SC 


REE 


N)" 


/ 







2390 GOSUB 2690:G0SUB 2910 

2400 PRINT "THE PRINTS SYNTAX IS:" 



2410 PRINT" PRINTSXX," 

2420 PRINT" YOU ARE TELLING THE CO 
MPUTER TO PRINT, AT A CERTAIN 
LOCATION AND WHAT THE LOCATION IS 
(THE COMMA AFTER THE LOCA 
TION IS NECESSARY.) 

2430 PRINT :PRINT" THERE ARE SEVERA 
L PLACES YOU CAN PRINT TO. ACT 
UALLY TO PRINT TO THE SCREEN, YOU 
SHOULD HAVE A PRINT#0, AND YOU 
CAN USE PRINTIN THIS WAY."; 

2440 GOSUB 2690:G0SUB 2910 
2450 PRINT"THE COMPUTER ASSUMES A 
0 WHICH IS THE TV SCREEN IF YOU 
DON'T SPECIFY ANYTHING. HOWEVE 
R IT IS NICE TO KNOW THAT THE COM 
PUTER WILL ACCEPT A PRINT#0 AS Y 
OU CAN OFFER A CHOICE OF PRINT 
OUTS IN YOUR PROGRAM, AND STILL U 
SE" 

2460 PRINT "ONLY ONE ROUTINE FOR T 
HE PRINTOUT. EG: 

2470 GOSUB 2690:G0SUB 2910 

2480 PRINT" 10 PR I NT" C HR $ ( 34 ) ; " 1. 

PRINT TO SCREEN 2. 

PRINT TO PRINTER 3. P 

RINT TO TAPE" 

2490 PRINT"20 INPUT A:IF A=1 THEN 



B=0 30 IF A = 2 THEN B = -2 

40 IF A=3 THEN B=-1" 

2500 PRINT "50 PR I NT #B , " ; C H R $ ( 34 ) ; 
"TEST";CHR$C34) 

2510 PRINT : PRINT"THIS PROGRAM ILL 
ISTRATES THE USEYOU CAN MAKE OF T 
HE PRINT#0, AS YOU ONLY HAVE ONE 
PRINT STATE- MENT FOR A CHOICE 0 
F 3 PRINTOUTS"; 

2520 GOSUB 2690:G0SUB 2910 
2530 PRINT "PRINT TAB(X); 

2540 PRINT : PRINT"TAB LETS YOU PRI 
NT AT A CERTAIN PLACE ON 

A LINE. THIS LETS YOU LINE 

UP ROWS AND COLUMNS." 

2550 PRINT : PRINT"1 0 FOR X = 1 TO 10 

H 

2560 PR INT" 20 PRINT X ; T AB ( 1 5 ) ; X +5 

II 

2570 PRINT "30 NEXT X 

2580 PRINT : PRINT"LET ' S SEE WHAT I 

T DOES." 

2590 GOSUB 2690:G0SUB 2910 
2600 FOR X = 1 TO 1 0 : PR I NT X ; T AB ( 1 5 ) 
;X+5:NEXT X 

2610 PRINT "SEE HOW IT WORKS?" 

2620 GOSUB 2690:G0SUB 2910 
2630 PRINT "SEVERAL COMMANDS CAN B 
E USED TOGETHER. LIKE: PRINT#- 
2,TAB(5) TO PRINT AT THE 5TH COLU 
MN ON THE PRINTER INSTEAD OF TH 
E SCREEN." 

2640 PRINT "YOU CAN ALSO USE ?#-2, 
INSTEAD OF THE PRINT#-2. THE CO 
MPUTER WILL CONVERT THE ? TO PR 
INT. " 

2650 PRINT: PRINT"IF YOU HAVE EXTE 
NDED BASIC, BE SURE TO LOOK AT P 
RINT USING." 

2660 PRINT :PRINT"HIT ANY KEY TO C 
ONTINUE" 

2670 A$=INKEY$: IF A$="" THEN 2670 
2680 RUN"BASIC3" 

2690 PRINT :PRINT"HIT ANY KEY TO C 
ONTINUE"; 

2700 A$=INKE Y$ : I F A$="" THEN 2700 
2710 CLS : RETURN 

2720 PRINT"* BASIC COMMANDS IF/TH 

EN/ELSE *" : PRINT : RETURN 

2730 PRINT" *** BASIC COMMAND IN 

KEYS ***":PRINT :RETURN 

2740 PRINT" *** BASIC COMMAND I 

NPUT ***": PRINT : RETURN 

2750 PRINT" *** BASIC OPERATOR 



INT ***": PRINT : RETURN 
2760 PRINT" ******* JOYSTK ** 
*****" : PRINT : RETURN 
2770 PRINT" *** BASIC FUNCTION LE 
FT$ ***": PRINT : RETURN 
2780 PRINT" *** BASIC FUNCTION L 
EN ***": PRINT : RETURN 
2790 PRINT" *** BASIC COMMAND LI 
ST ***": PRINT : RETURN 
2800 PRINT" *** BASIC COMMAND LLI 
ST ***":PRINT :RETURN 
2810 PRINT" * BASIC COMMAND MOTOR 
ON/OFF *":PRINT :RETURN 
2820 PRINT" *** BASIC FUNCTION M 
IDS ***": PRINT : RETURN 
2830 PRINT" *** BASIC COMMAND N 
EW ***": PRINT : RETURN 
2840 PRINT" *** BASIC OPERATOR 
NOT ***": PRINT : RETURN 
2850 PRINT" *** BASIC COMMAND 0 
PEN ***": PRINT : RETURN 
2860 PRINT" *** BASIC COMMAND 0 
N ***": PRINT : RETURN 
2870 PRINT" *** LOGICAL OPERATOR 
OR ***": PRINT : RETURN 
2880 PRINT" *** BASIC COMMAND P 
EEK ***":PRINT :RETURN 
2890 PRINT" *** BASIC COMMAND P 
OKE ***":PRINT :RETURN 
2900 PRINT" *** BASIC COMMAND PO 
INT ***": PRINT : RETURN 
2910 PRINT" *** 3 AS I C COMMAND PR 
INT ***":PRINT :RETURN 

AFTER RUNNING MEMORY = 1783 
MEMORY REQUIRED = 21040 




10 GOSUB 840 

20 PRINT "THE READ COMMAND IS USED 
IN CONJUNCTION WITH A DATA S 

TATE- MENT." 

30 PRINT" IT IS USED LIKE THIS:" 

40 PRINT : PR INT"1 0 FOR X=1 TO 5:RE 
AD AS 

50 PR I NT " 20 PRINT AS : NEXT X 
60 PRINT"30 DATA ONE, TWO, THREE, FO 
UR, FIVE" 

70 PRINT :PRINT : FOR X = 1 TO 5 : READ A 
$:PRINTA$;" ";:NEXT X:PRINT 
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II 



80 DATA ONE, TWO, THREE, FOUR, FIVE 
90 GOSUB 810:G0SUB 850 
100 PRINT "REM AND ' CAN BE INTERC 
HANGED REM IS SHORT FOR REMEMBE 
R AND ' IS SHORT FOR REM." 

110 PRINT" YOU MAY NOT THINK THIS 
IS VERY IMPORTANT, BUT IF YOU HA 
VE EVER TRIED TO DEBUG A PROGRAM 
THAT SOMEONE ELSE HAS WRITTEN." 
120 PR INT" YOU WILL LEARN TO LOVE 
,THE REM COMMAND. ONE WORD ABOUT 
IT THOUGH." 

130 PR INT"MAKE YOUR GOTO'S AND GO 
SUBS GO TO THE LINE AFTER THERE 
M'S" 

140 GOSUB 81 0 : GOSUB 860 

150 PRINT "THIS COMMAND EXECUTES Y 

OUR PROGRAM." 

160 PRINT:PRINT" *** BASIC COMMAN 
D RESTORE ***" 

170 PRINT "RESETS THE POINTER TO T 
HE START OF YOUR DATA STATEMENTS. 

II 

180 PRINTiPRINT" *** BASIC COMMAN 
D RETURN ***" 

190 PRINT" RETURNS THE COMPUTER BA 
C TO THE LINE AFTER THE GOSUB THA 
T SENT IT TO THIS ROUTINE" 

200 GOSUB 81 0: GOSUB 870 
210 PR INT"USE THIS COMMAND WITH T 
HE LOW RESOLUTION GRAPHICS TO R 
ESET A POINT TO 0 (BLACK)" 

220 PR INT"MOST OF THE TIME YOU WI 
LL CLEAR THE SCREEN TO BLACK FOR 
YOUR GRAPHICS, SO WE CALL THIS 
RESET" 

230 PRINT" TO SEE WHAT SET/RESET D 
OES LOOK AT THE SET COMMAND" 

240 GOSUB 81 0 : GOSUB 880 
250 PRINT"REMEMBER LEFTS AND MIDS 
? " 

260 'PRINT" WELL, RIGHTS IS THE OPP 
OSITE OF LEFTS. REMEMBER THE DATE 
? WE FOUND THE MONTH AND THE D 
AY WITH LEFTS AND MIDS, NOW W 

E FIND THE YEAR WITH RIGHTS." 

270 PRINT " PROGRAM: ":PRINT" 10 DATE 
$=";CHR$(34);" 10/12/83 ";CHR$(34) 
280 PRINT "20 B$=R I GHTS ( AS, 2 ) " 

290 PRINT :PRINT" SIMPLE ISN'T IT?" 

300 GOSUB 810:G0SUB 890 
310 PRINT"RND, SHORT FOR RANDOM N 
UMBER, GENERATES A RANDOM NUMBE 
R BETWEEN 1 AND THE NUMBER 
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WHICH YOU SPECIFY. 

320 PRINT" PROGRAM: ":PRINT" 10 FOR 
X = 1 TO 100:A=RND(100)" 

330 PR INT "20 PR I NT3395, X; A" : PR INT 
"30 FOR C = 1 TO 1 00 : NE XT C,X 
340 FOR X = 1 TO 1 00 : A = RND ( 1 00 ) : PR I 
NT3395, X; A; 

350 FOR C = 1 TO 100:NEXT C,X 
360 GOSUB 810: GOSUB 890 
370 PRINT" AS YOU COULD SEE THE NU 
MBER ON THE LEFT WAS THE VALUE 0 
F X BUT THE NUMBER ON THE RIGHT W 
AS JUSTRANDOM NUMBERS BETWEEN 1 A 
ND 100" 

380 PRINT" WHAT'S THAT YOU SAY? YO 
U WANT A NUMBER BETWEEN 0 AND 1? 
WHY SURE!" 

390 PR INT" I F YOU USE RNDCO) YOU W 
ILL GET A RANDOM NUMBER DECIMAL 
BETWEEN 0 AND 1 (9 DIGITS LONG!)" 

400 GOSUB 81 0 : GOSUB 890 
410 PR INT "NOW THAT WE KNOW WHAT R 
ND IS, JUST WHAT CAN WE DO WITH 
IT?" 

420 PR INT "WE COULD USE IT TO WRIT 
E A NUMBER GUESSING GAME, OR 

A MATH GAME, OR WE COULD US 

E IT TO SEND THE COMPUTER TO A 
SUBROUTINE ONCE IN A WHILE. 

II 

430 PRINT : PRINT"YOUR ASSIGNMENT: 
WRITE THE 3 PROGRAMS TO DO THE 
ABOVE." 

440 GOSUB 81 0 : GOSUB 900 
450 PRINT"SET /RESET LETS YOU PUT 
GRAPHICS ON THE SCREEN ALONG WITH 
PRINTEDTEXT. YOU CAN ALSO HAVE V 
ERY FAST GRAPHICS IN THE LOW R 
ES MODE." 

460 PRINT : PRINT"DEMO PROGR AM : " : PR 
INT"1 0 CLSO : FOR X=0 TO 63":PRINT" 
20 SET (X,0,5) :SET (X,31,4)":PRINT" 
30 NEXT X" 

470 FOR X=0 TO 63 : S ET ( X, 0, 5 ) : S ET ( 
X, 3 1 , 4 ) : NEXTX 
480 GOSUB 81 0 : GOSUB 910 
490 PRINT"THE SGN IS SHORT FOR SI 
GN AND WILL RETURN THE SIGN OF 
A NUMBER. IF THE NUMBER IS 

NEGATIVE IT WILL RETURN A 
-1 IF POSITIVE IT WILL RETURN 
A 1" 

500 PRINT"USE IT WHENEVER YOU WAN 
T TO ACCEPT ONE SET OF NUMBER 

S AND REJECT THE OPPOSITE." 



510 GOSUB 810:G0SUB 920 

520 PRINT" THE SKIPF COMMAND ALLOW 

S YOU TO SKIP PROGRAMS ON A TAPE. 





I 


T WI 


LL NOT 


SKIP 


TO THE 


P 


ROGRAM YOU SP 


ECIFY, 


BUT W 


ILL SK 


IP 


OVE 


R THE 


PRO 


GRAM YOU SPE 


CIFY, 


SO 


IF 


YOU 


WANT 


TO GOTO THE 


1 OTH 


II 


530 


PRINT 


"PROGRAM ON 


THE 


TAPE, 


YO 


U MUST 


TYPE 


SKIPF" 


:CHR$ 


(34);" 


NA 


ME 0 


F 9TH 


PRO 


GRAM"; C 


HRS (34) 




540 


PRINT 


: PRI 


NT"THIS 


COMMAND IS 


U 


SEFUL TO 


SKIP 


OVER 


PROGRAMS ON 


T 


HE T 


APE TO 


THE EN 


D, SO 


YOU C 


AN 


ADD 


A 




PROGRAM 


TO I 


T."; 




550 


GOSUB 


810 


: GOSUB 


930 






560 


PRINT 


"THE 


SIN OP 


ERATO 


R RETU 


RN 


S TH 


E 


SINE 


OF AN 


ANGLE 


IN RA 


D I 


ANS" 


: PRINT"EG 


: PRINT 


S I N ( 


1.5) 








OR 


A=S I N ( 


1.5)" 






570 


PRINT 


"TO 


CONVERT 


TO D 


EGREES 


M 


ULTI 


PLY 


BY 5 


7.29577951" 






580 


GOSUB 


810 


: GOSUB 


940 






590 


PRINT 


"SOUND: EVE 


R PLA 


Y YOUR 


R 


OM?" 














600 


PRINT 


"PROGRAM:" 








610 


PRINT 


"10 


FOR X=40960 


TO 41000 


620 


PRINT 


"20 


P=PEEK ( 


X) : IF 


P<1 T 


HE 


N P = 


1" 












630 


PRINT 


"30 


R = INT (P 


/ 50 ) + 


1 




640 


PRINT 


"40 


SOUND P 


,R 






650 


PRINT 


"50 


NEXT X 








660 


FOR X 


=40960 TO 4 


1000: 


LU 

LU 

CL 

II 

CL 


(X 


) : IF 


PCI 


THEN 


P = 1 








670 


R = INT 


( P/ 50 ) +1 : SOUND P 


, R : NE XT X 



680 PRINT : PRINT "NOT VERY PRETTY I 
S IT?" 

690 PRINT"THE SOUND COMMAND LETS 
YOU SOUND A TONE 1 TO 255 FO 

R A DURATION OF 1 TO 255." 

700 GOSUB 810: GOSUB 940 

710 PRINT"SOUND CAN BE MADE INTO 

A PRETTY SONG IF YOU WORK AT IT." 



720 GOSUB 81 0 : GOS UB 950 

730 PRINT "STOP DOES JUST THAT, 



IT 
BUT 
CONT 
FTER 
D." 

740 PRINT 
HE VALUES 
HER." 

750 GOSUB 



STOPS 
UNLIKE 
AND CONTINUE 
IT ENCOUNTERS 



PROGRAM EXECUTION, 
END, YOU CAN TYPE 
THE PROGRAM A 
A STOP COMMAN 



PRINT "YOU 
IN YOUR 



DON'T LOOSE T 
VARIABLES E IT 



81 0 : GOSUB 960 



C 
V A 

TH 



CO 



760 PRINT" STR$ LETS YOU CONVERT 
YOUR NUMERIC VARIABLE INTO A 

STRING. " 

770 PRINT"WHY DO YOU WANT TO CHAN 
GE A VARIABLE TO A STRING?" 

780 PRINT"TRY PRINTING A NUMERIC 
VARIBLE SEVERAL TIMES LIKE:":PRI 
NT"PRINT A; A; A YOU WILL NOTICE A 
SPACE BETWEEN THEM, AND THAT'S 
GOOD MOST OF THE TIME." 

790 PRINT"BUT THERE ARE TIMES YOU 
MAY WANTTO BUTT THEM TOGETHER, L 

IKE WITH A DATE." 

791 PRINT"VAL, SHORT FOR VALUE 
ON VERTS A STRING TO A NUMERIC 
RIABLE. EG: A=VAL(A$)." 

792 PRINT" OR IF VAL(A$)=XX 
EN XX" 

800 END 

810 PRINT : PRINT"HIT ANY KEY TO 
NTINUE"; 

820 A$= I N KE Y $ : IF A$ = "" THEN 820 
830 RETURN 

840 CLS : PRINT" *** BASIC 
READ ***":PRINT :RETURN 
850 CLS:PRINT" *** BASIC 
REM ***": PRINT : RETURN 
860 CLS:PRINT" *** BASIC 
RUN ***": PRINT : RETURN 
870 CLS:PRINT" *** BASIC 
RESET ***": PRINT : RETURN 
880 CLS:PRINT" *** BASIC 
RIGHTS ***": PRINT : RETURN 
890 CLS : PRINT" *** BASIC 
RND ***": PRINT : RETURN 
900 CLS:PRINT" *** BASIC 
SET ***": PRINT :RETURN 
910 CLS:PRINT" *** BASIC 
SGN ": PRINT : RETURN 
920 CLS: PRINT" *** BASIC 
SKIPF ***": PRINT : RETURN 
930 C LS : PR I NT" *** BASIC 
'SIN ***": PRINT : RETURN 
940 CLS: PRINT" *** BASIC 
SOUND ***": PRINT : RETURN 
950 CLS:PRINT" *** BASIC 
STOP *** ": PRINT : RETURN 
960 CLS : PR INT" *** BASIC 
STRS *** ": PRINT : RETURN 
970 CLS: PRINT" *** BASIC 
VAL ***": PRINT : RETURN 



COMMAND 



COMMAND 



COMMAND 



COMMAND 



COMMAND 



COMMAND 



COMMAND 



COMMAND 



COMMAND 



OPERATOR 



COMMAND 



COMMAND 



COMMAND 



COMMAND 



AFTER RUNNING MEMORY = 17243 
MEMORY REQUIRED = 5580 

Continued on 
the next page 
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Extended 



Color Basic 



EXTENDED 




10 GOSUB 2670 

20 PR INT" ATN IS SHORT FOR ARCTAN 
GENT (WHICH IS SHORT FOR CTHE 
ANGLE WHOSE TANGENT IS])." 

30 PRINT"REMEMBER THAT THE COLOR 
COMPUTERCOMPUTES IN RADIANS, NOT 
DEGREESSO IF YOU WANT DEGREES, MU 
LTIPLYTHE ANGLE BY 57.2957787" 

40 PRINT : PRINT"ATN RETURNS THE AN 
GLE IF YOU KNOW THE TANGENT. ( 
REMEMBER ITS IN RADIANS.) EG: ? AT 
NCI .29) ." 

50 GOSUB 2630:G0SUB 2680 
60 PRINT "CIRCLE IS A COMPLEX COMM 
AND WITH MANY VARIABLES THAT 

YOU CAN USE. (YOU DON'T HAVE T 
0 REMEMBER ALL OF THEM TO USE 

THE CIRCLE COMMAND). " 

70 PRINT"THE SYNTAX FOR CIRCLE IS 
PRINT: PR INT" 1 00 C I R CLE ( 1 28, 96) 
,5 0,5,1,. 2,. 8": PR I NT -.PRINT "WE WIL 
L GO THRU THESE ONE AT A TIME AN 
D SHOW YOU HOW THEY ARE (OR CAN 
BE) USED." 

80 GOSUB 2630:G0SUB 2680 
90 PRINT" CIRCLE (1 28, 96), 50 
100 PRINT :PRINT"THIS IS THE FEWES 
T NUMBER OF VARIABLES YOU CAN 
HAVE AND STILLUSE THE CIRCLE COMM 
AND.":PRINT"THE PART INSIDE THE ( 
) ARE THE SCREEN LOCATIONS FOR T 
HE CENTER OF THE CIRCLE." 

110 GOSUB 2630:G0SUB 2680 
120 PRINT"THE SCREEN IS SET UP WI 
TH X (HORIZONTAL) AND Y (VERT 

ICAL) CO-ORDINATES. THE HORIZON 

TAL (SCREEN WIDTH) IS DIVIDED 
UP INTO 256 DOTS (0 TO 255) AN 
D THE Y, VERTICAL (SCREEN HEIG 
HT) IS DIVIDED UP INTO 192 DOTS 
(0 TO 191)." 

130 PRINT : PRINT"THE (128,96) IN 0 
UR EXAMPLE IS THE CENTER OF THE 
SCREEN. THE 50 IN OUR EXAMP 

LE IS THE RADIUS OF THE CIRCLE 
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*• . 

• / 

140 GOSUB 2630 : GOSUB 2680 
150 PR INT"SO, CIRCLE (128, 96), 50 
WILL DRAW A CIRCLE AT THE CEN 

TER OR THE SCREEN WITH A RADIUS 
OF 50 DOTS." 

160 PRINT: PRINT" CIRCLE (128, 96), 50 
,5" : PRINT 

170 PR INT "WE JUST ADDED A ,5 TO 0 
UR CIRCLE COMMAND. THIS SPE 

CIFIES COLOR." 

180 GOSUB 2630 : GOSUB 2680 

190 PR INT" CIRCLE (1 28, 96), 50,5, . 5" 

: PRINT 

200 PR INT"NOW WE HAVE A ,.5 ADDED 
TO OUR CIRCLE COMMAND. THIS IS 
THE HEIGHT/WIDTH RATIO. (WE C 

AN MAKE OVALS TOO!). IF YOU S 

PECIFYA NUMBER BETWEEN 0 AND 1 TH 
EN YOUR CIRCLE WILL BE WIDER TH 
AN IT IS HIGH, IF YOU SPECIFY A" 

210 PRINT"NUMBER LARGER THAN 1 TH 
EN YOUR CIRCLE WILL BE TALLER TH 
AN IT IS WIDE. LET'S TRY IT." 
220 PM0DE4,1 :PCLS:SCREEN1,1 
230 CIRCLE(128,96),50 
240 A$=" CIRCLE CMD":GOSUB 2750 
250 FOR D L Y = 0 TO 500:NEXT DLY 
260 PM0DE3,1 : PCLS : SCREEN1 ,1 
270 FOR Y=5 TO 8 : C I R C L E ( 1 2 8, 96 ) , 5 
0, Y 

280 A$=" COLOR "+STR$(Y) 

290 GOSUB 2750 : FOR D L Y = 0 TO 500:N 
EXT DLY 
300 NEXT Y 

310 GOSUB 2630:G0SUB 2680 
320 PRINT "NOW WE KNOW HOW TO DRAW 
A CIRCLEMAKE IT THE SIZE WE WANT 
AND PLACE IT ON THE SCREEN. W 
E EVEN KNOW HOW TO CHANGE IT'S CO 
LOR. NOW LET'S TRY OVALS PRINT 

330 PRINT "FIRST: CIRCLE (12 8, 96), 50 
,5,.5":PRINT 

340 PR INT"THE ,.5 WILL MAKE IT TW 
ICE AS WIDE AS IT IS TALL.":PRI 
NT"LET ' S LOOK AT IT." 

350 PM0DE4, 1 :PCLS:SCREEN1,1 :A$=", 
.5" 

360 CIRCLE(128,96),50,5,.5:G0SUB 
2750 

370 FOR D L Y = 1 TO 1000:NEXT DLY 
380 FOR Y= . 2 TO 1 STEP .1 



390 PCLS:CIRCLE(128,96),50,5,Y:A$ 
=STR$(Y) :60SUB 2750 
400 FOR DLY=1 TO 500-.NEXT DLY 
410 NEXT Y 

420 FOR Y=1 TO 1 0 : A=INT (LOG C Y ) *1 0 
):Z=28-A:PCLS:CIRCLE(128,96),Z,5, 
Y 

430 A$=STR$(Y) : GO SUB 2750 
440 FOR DLY = 1 TO 500:NEXT DLY 
450 NEXT Y 
460 GOSUB 2680 

470 PRINT "WE JUST SEEN A DEMONSTR 
AT ION OF THE HEIGHT/WIDTH RATIO F 
UNCTION." 

480 PR INT"BUT LET'S NOT STOP YET! 

If 

490 PRINT: PRINT"WE STILL HAVE MOR 
E TO GO. CIRCLE(128,96),50, 

5 1 .25 .75" 

500 / pRINT:PRINT"WHAT*S THIS? .25 
AND .75?" 

510 PRINT"THESE ARE START AND STO 
P POINTS. YOU SEE WE DON'T HAVE TO 
DRAW A COMPLETE CIRCLE, WE CAN 
DRAW PART OF ONE, AN ARC."; 

520 GOSUB 2630 : GOSUB 2680 
530 PRINT "THE START POINT 0 AND T 
HE END POINT 1. ARE AT THE 3 O' 
CLOCK POSITION. SO A .25 IS AT 
THE 6 O'CLOCK, .5 IS AT 9 O'CL 
OCK AND .75 IS AT 12 O'CLOCK." 
540 PRINT "WE DON'T HAVE TO HAVE T 
HE START POINT WITH A LOWER 

NUMBER THAN THE END POINT THOUGH 

IV 

• 

550 PRINT "WE CAN START AT .75 AND 
END AT .25" 

560 GOSUB 2630 : GOSUB 2680 

570 PRINT" HERE IS A SAMPLE PROGRA 

M:" 

580 PRINT "10 PM0DE4,1 :PCLS:SCREEN 
1,1" :PRINT"20 FOR X=.1 TO 1 STEP 
. 1 ": PR I NT" 30 C I R CLE ( 1 28, 96 ) , 50, 5, 
1,X,1":PRINT"40 NEXT X 
590 PRINT : PRINT "WE WILL DRAW AN A 
RC FROM DIFFERENT START PO 

INTS (X) TO THE END POINT OF 1. 

II 

600 GOSUB 2630 

610 PM0DE4,1 :PCLS:SCREEN1,1 

620 FOR Y= . 1 TO 1 STEP .1:PCLS:CI 

RCLE(128,96),50,5,1,Y,1 

630 A$=STR$(Y) :GOSUB 2750 

640 FOR DLY=1 TO 400:NEXT DLY 

650 NEXT Y 

660 GOSUB 2680 



670 PR INT"WE HAVE SHOWN A VARIABL 
E AS THE START POINT IN THE PREVI 
OUS EXAMPLE, HOWEVER YOU CAN 

USE VARIABLES FOR ALL THE VALU 

E S . " 

680 PRINT" FOR INSTANCE YOU COULD 
USE":PRINT:PRINT"CIRCLE(X,Y),A,B, 
C,D,E":GOSUB 2630 : GOSUB 2680 
690 PRINT"LET'S SEE HOW THIS MIGH 
T WORK. SAMPLE PROGRAM:" 

700 PR INT " 1 0 FOR X=100 TO 200 STE 
P 10":PRINT"20 FOR Y=80 TO 120 ST 
EP 1 0" : PR INT"30 FOR A=0 TO 50 STE 
P 5" 

710 PR INT"40 B=5:C=(A+1)/25:D=C/2 
:E=1-(C/2)" 

720 PRINT "50 C I R CLE ( X, Y ) , A, B, C, D, 
E": PR INT" 60 NEXT A, Y : PCLS : NEXTX" 
730 GOSUB 2630:PM0DE4,1 :PCLS:SCRE 
EN1 , 1 :A$="HIT <S> TO STOP":GOSUB 
2750 

740 FOR DLY=1 TO 100:NEXT DLY : PCL 
S 

750 FOR Y=1 00 TO 200 STEP 50:A$=" 
X="+STR$(Y) :GOSUB 2750:F0R Z=80 T 
0 120 STEP 20: A$="Y="+STR$(Z) :GOS 
UB 2750 : FOR A=0 TO 50 STEP 5 
760 B=5:C=ABS ((A+1)/25):D=C/2:E=A 
BS(1-(C/2)) 

770 K$ = INKE Y $ : I F K$ = "S" THEN 790 
780 CIRCLE(Y,Z),A,B,C,D,E:A$="A=" 
+ STR$(A)+" C="+STR$(C) : G 0 S U B 275 

0 : NE XT A : PCLS :NEXTZ: PCLS: NEXT Y 
790 GOSUB 2680 

800 PR INT "WOULD YOU LIKE TO ENTER 
YOUR OWN VARIABLES? TRY IT. 

II 

810 PRINT: INPUT"ENTER THE HORIZON 
TAL POSITION BETWEEN 0 AND 255" 
; Y : I F Y<1 OR Y>255 THEN Y = 128 
820 PRINT : INPUT"ENTER THE VERTICA 
L POSITION BETWEEN 1 AND 191" 

; Z : I F Z<1 OR Z > 1 9 1 THEN Z = 96 
830 PRINT: INPUT"ENTER THE RADIUS 
YOU WANT YOUR CIRCLE TO BE (0 TO 
1 00) A : I F A<1 OR A>100 THEN A=5 

0 

840 PRINT: INPUT"ENTER THE COLOR Y 
OU WANT YOUR CIRCLE, (0 TO 8)"; 
B : I F B<0 OR B>8 THEN B = 5 
850 PRINT: INPUT"ENTER THE HEIGHT/ 
WIDTH RATIO (0 TO 1) OR (1 TO 
60)";C:IF C=0 OR 060 THEN C=1 
860 PRINT: INPUT"ENTER YOUR STARTP 
OINT (0 TO 1 ) " ; D : I F D>1 THEN D = 0 
870 PRINT: INPUT"ENTER YOUR ENDPOI 
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NT (0 TO 1 ) " ; E : I F E>1 OR E<0 THEN 
E = 1 

880 PM0DE3,1 :PCLS:SCREEN1,1 

890 CIRCLE(Y,Z),A,B,C,D,E 

900 A $ = " A G A I N ? " : G 0 S U B 2750 

910 GOSUB 2640 : I F A$ = ,, Y ,, THEN 810 

920 GOSUB 2690 

930 PR INT"THE COMMAND COLOR ALLOW 
S YOU TO SET THE BACKGROUND 8 FOR 
EGROUND COLORS YOU WANT. YOU CAN 
STILL SPECIFY THE COLORS YOU WAN 
T WITHTHE DRAW, PAINT, ETC. COMMAND 
S " 

940 PRINT" WHAT YOU SET WITH THE C 
OLOR COMMAND IS THE DEFAULT C 

OLORS. THE SYNTAX IS: COLOR 3,2 
OR COLOR X, Y THE FIRST NUMBER 

AS THE X IS THE FOREGROUND A 
ND THE Y IS THE BACKGROUND COLO 
R." 

950 GOSUB 2630 : GOSUB 2690 
960 PRINT" YOU ARE ALLOWED 4 COLOR 
S PER SCREEN SET IN PMODES 1 A 
ND 3. IF YOU ARE USING SCREEN1 , 
0 THEN YOU WOULD USE COLORS 1 TO 
4 AND IF YOU ARE USING SCREEN1,1 
THEN YOU WOULD USE COLORS 5 TO 8. 

H 

970 PRINT :PRINT"WITH THE CIRCLE C 
OMMAND WE USED A WHILE BACK WE SP 
ECIFIED A COLOR, EG: CIRCLE(X 

,Y),Z, COLOR WELL, WE COULD ALSO 
SET THE COLOR LIKE THIS:" 

980 GOSUB 2630 : GOSUB 2690 
990 PRINT" 10 PM0DE3,1 : COLOR 2,3:P 
CLS 20 SCREEN1,0":PRINT"30 C 

IRCLE(128,96),50" 

1000 PRINT :PRINT"THIS WILL CREATE 
A BLUE BACKGROUND WITH A 

WHITE CIRCLE" 

1010 PRINT: PRINT"SINCE DRAW,CIRCL 
E AND PAINT ALLOWS YOU TO SPE 

Cl F Y COLOR, THIS COMMAND SEEMS 

USELESS, BUT THE LINE COMMAND DO 
ES NOT LET YOU SET COLOR." 

1020 GOSUB 2630 : GOSUB 2690 
1030 PRINT "ALSO, IF YOU WANTED AL 
L OF YOUR GRAPHICS TO BE WHITE ON 
A BLUE BACKGROUND, THE COLOR CO 
MMAND MAKES THIS A LOT EASIER." 
1040 GOSUB 2630 : GOS UB 2700 
1050 PRINT "COS. . SHORT FOR COSINE 
, RETURNS THE COSINE OF AN ANGLE 
IN RADIANS" 

1060 PRINT :PRINT" IT'S USED LIKE T 
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HIS:" 

1070 PRINT: PRINT"PRINT COS (ANGLE) 
OR A = COS (ANGLE)" 

1080 PRINT:PRINT"WHAT IS A COSINE 
? " 

1090 GOSUB 2630 : GOSUB 2700 
1100 PRINT "IN GEOMETRY, THE RATIO 
OF THE SIDE ADJACENT TO THE AN 
GLE TO THE HYPOTENUSE OF A RIGH 
T TRIANGLE" 

1110 PRINT "THE COSINE OF AN ACUTE 
ANGLE EQUALS THE SINE OF IT'S 
COMPLEMENTARY ANGLE. (SE 

E SIN)" 

1120 PRINT "IN TRIGONOMETRY, THE C 
OSINE OF AN ANGLE IS THE RATIO 0 
F THE ABSCISSA, X, TO THE DISTA 
NCE R, WHEN THE ANGLE IS IN STAN 
DARD ANGLE POSITION." 

1130 GOSUB 2630:PM0DE4,1 :PCLS:SCR 
E EN1 , 1 

1140 LINE(20,140)-(150,140),PSET: 
LINE-(20,40),PSET:LINE-(20,140),P 
SET 

1150 DRAW'BMI 5, 30" : G0SUB31 70 : DR AW 
"BM1 5,1 60" : GOSUB 31 80 : DR AW'BMI 5 5, 
140": GOSUB 3160 

1160 DRAW"BM5,100":G0SUB 3190:DRA 
W"BM85,1 60" : GOSUB 3200 : DRAWBM90, 
90":G0SUB 3210 

1170 A$=" COS A=E/F":GOSUB 2750 
1180 FOR D L Y = 1 TO 500:NEXT DLY 
1190 A$=" COS B=D / F" : GOSUB 2750 
1200 GOSUB 2640: SCREENO: GOSUB 264 
0 

1210 GOSUB 2700 

1220 PRINT "IF YOU DON'T UNDERSTAN 
D ANY OF THE ABOVE, DON'T WORRY, 
YOU REALLY DON'T HAVE TO UND 

ERSTAND IT TO USE IT." 

1230 PR I NT" YOU CAN GET A BETTER V 
IEW OF THE COSINE FUNCTION WIT 
H THIS PROGRAM." 

1240 PRINT" 10 PM0DE4,1 :PCLS:SCREE 
N 1 , 1 20 PI=3. 141 59: FOR X=-PI 

TO 2*PI 30 P=(X+PI)*25: Q=COS (X)* 
40" : PR INT"40 PS ET ( P, 1 28+Q, 5 ) 

50 NEXT X" 

1250 GOSUB 2630 

1260 PM0DE4, 1 :PCLS:SCREEN1,1 : LINE 
(0,96)-(255,96),PSET 
1270 PI=3. 14159: FOR X=-PI TO 2*PI 
STEP .1 :Q=C0S(X)*40:P=(X+PI)*25: 
PSET (P,128+Q,5) :NEXT X:GOSUB 2640 
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GRAFPLOT 



DRAWS A 



PICTURE WORTH 1 OOO WORDS 




User-Defined Functions: Sine Waves 






RAINBOW 



CERTIFICATION 

SEAL 



-"Very impressed.” 
-"Equally useful in the 



home and office.” 
••"Met 1 cul ous, handhol cl 



inq documentation.” 
-"Very easy to use. ” 

- RAINBOW. Julv '83 




GRAFPLOT 1.1 includes everything you need to go effortlessly 
from raw data to professional-quality printed graphs in minutes. 
Perfect for business. personal, educational, scientific and 
engineering applications. Free screenprint for R/S printers. 

Automatically scales and draws graph for best appearance. 

Full ASCII upper and lower case in 4 on-screen labels. 

Two fully labeled Y-axes, 200 or more data points per a;is. 

9 graphing symbols with unlimited overlay of data. 

Full function data editing: add, change, delete and sort. 
Universal Screenprint Loader- Automatically interfaces 
ANY screenprint program for non-Radio Shack printers. 
Graphs and data output to screen, printer, tape or disk. 

Plots user-defined functions: projections, regressions, etc. 
Calculates moving averages (binomial smoothing), cumulative 
totals and integrals of data or user-defined functions. 
Saves completed graphs for instant reloading. 

Menu driven with complete error trapping and auto-prompt i ng. 
Comprehensive manual w/ tutorials and sample data. 

Disk Only: display or print directory, kill or rename files. 
Many other labor — saving and time-saving features. 

GRAFPLOT is available for 16K E.C-.B. ($35.00) and 32K E.C.B. 

($40.00) on cassette and for 32K disk ($45.00) (U.S. >. Send 

check or money order to: HAWKES RESEARCH SERVICES, 1442 Sixth 
St., Berkeley, CA, 94710. Manual available separately for 
$10.00 + shipping, refundable with purchase. Include $3.00 
shipping on all orders. Dealer (30-507.) and club discounts 
(20-407.) available. VERSION 1.0 OWNERS- $3.00 FOR EXCHANGE. 




Continued from Page 38 

1280 GOSUB 2640 : GOSUB 2700 
1290 PRINT" IF YOU WANT TO KNOW MO 
RE ABOUT THE SINE/COSINE FUNCTIO 
NS, ASK YOUR TEACHER OR CHECK A 
BOOK OUT OF THE LIBRARY ON TRI 
G OR GEOMETRY." 

1300 GOSUB 2630 : GOSUB 2710 
1310 PR INT" DE F IS SHORT FOR DEFIN 
E AND IS USED IN 2 WAYS. THE FIR 
ST IS: DEF FN (DEFINE FUNCTION) 

II 

■ 

1320 PR INT"WE WILL LOOK AT IT FIR 
ST." 

1330 PRINT: PRINT"DO YOU REMEMBER 
A WHILE BACK THAT WE WERE HAVI 
NG TO MULTIPLY OUR ANSWERS BY 57. 
29577951 TO CONVERT RADIANS 

TO DEGREES?" 

1340 PRINT"WELL, INSTEAD OF DOING 
THIS SEVERAL*TIMES IN A PROG 

RAM WE CAN DEFINE A FUNCTION TO 
DO IT FOR US."; 

1350 GOSUB 2630 : GOSUB 2710 
1360 PRINT "10 DEF FNR ( X ) =X*57 . 295 
77951 ":PRINT"100 AA=FNR ( AA) 

" : PRINT 

1370 PRINT "LETS TRY THIS OUT." 
1380 DEF FNR (X)=X*57. 29577951 
1390 INPUT"ENTER A NUMBER ";AA 
1400 AA=FNR(AA) : PRINT "WE ENTERED 
THE NUMBER INTO AA BUT NOW A A=" 
; AA 

1410 PRINT: INPUT"WANT TO TRY IT A 
GAIN";K$: IF LEFT$(K$,1 )="Y" THEN 
1390 

1420 GOSUB 2710 

1430 PRINT "WANT TO DEFINE YOUR OW 
N FUNCTION" 

1440 PRINT"DE F FNR (X) =X*"; : INPUTK 

1450 DEF FNR(X)=X*K 

1460 PRINT : PRINT"NOW LET'S SEE WH 

AT YOU HAVE DONE" 

1470 INPUT "ENTER A NUMBER"; AA 
1480 PRINT "YOU ENTERED" ;AA;" BUT 
NOW WE USE AA=FNR (AA) AND YOUR 
ANSWER IS"; 

1490 AA=FNR (AA) : PRINTAA 
1500 PRINT" YOU CAN SEE HOW MUCH P 
ROGRAMMINGTIME YOU CAN SAVE WITH 
THIS." 

1510 GOSUB 2630 : GOSUB 2710 
1520 PRINT "NOW LET'S LOOK AT THE 
US R FUNCTIONS. THE COLOR CO 

MPUTER ALLOWS YOU TO HAVE UP TO 
9 US R CALLS" 
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1530 PRINT" WHAT THIS MEANS IS THA 
T YOU CAN HAVE UP TO 9 , MACHINE L 
ANGUAGE SUBROUTINES THAT ARE ACC 
ESSABLE FROM YOUR BASIC PROGRAM." 
1540 PRINT "MACHINE LANGUAGE ROUTI 
NES ARE MUCH FASTER THAN BASIC 
AND THIS WILL SPEED YOUR PROGRAMS 
UP. " 

1550 GOSUB 2630 : GOSUB 2710 
1560 PRINT "THE SYNTAX FOR THIS FU 
NOTION IS:DEFUSR(0)=(L0CATI0N OF 
ROUNTIN) ": PRINT "WHEN YOU WANT TO 
USE THE ROUTINEYOU TYPE Y=USR(0) 
. IF YOU WANT TO PASS PARAMETERS 
TO THE SUB-" 

1570 PRINT "ROUTINE, YOU TYPE Y=US 
RO(A$) OR WHATEVER YOUR VARIAB 
LE IS." 

1580 GOSUB 2630 : GOSUB 2720 

1590 PRINT"DEL . . SHORT FOR DELETE 

" : PRINT 

1600 PRINT "YOU CAN USE DEL TO DEL 
ETE PROGRAM LINES FROM YOUR 

BASIC PROGRAM. IT IS MOST USEF 

UL WHEN YOU HAVE SEVERAL LINES TO 
DELETE. " 

1610 PRINT "LET'S ASSUME THAT YOU 
HAVE A PROGRAM WHICH HAS A REA 
LLY NIFTY LITTLE ROUTINE IN 

IT AND YOU WOULD LIKE TO INCORPE 
RATE IT INTO YOUR CURRENT PROGR 
AM." 

1620 GOSUB 2630:G0SUB 2720 
1630 PRINT"LET'S SAY THAT YOUR PR 
OGRAM HAS LINE NUMBERS STARTING A 
T 10 AND ENDING AT 2080 BY 10'S, 
THIS GIVES US 208 LINES, AND T 
HAT YOUR SUBROUTINE IS ON LINE 
NUMBERS 1530 TO 1810." 

1640 PRINT" YOU COULD LLIST 1530-1 
810 AND RETYPE THE ROUTINE, OR 
WITH THE DEL COMMAND YOU CAN 

TYPE DEL-1520 AND DEL 1820-" 
1650 PRINT "THIS WOULD DELETE EVER 
YTHING EXCEPT YOUR ROUTINE AND 

YOU WOULDN'T HAVE TO TYPE AN 

YTHING.”; 

1660 GOSUB 2630: GOSUB 2720 
1670 PRINT "OF COURSE YOU COULD TY 
PE IN THE LINE NUMBERS ONE AT A T 
IME AND HIT ENTER EACH TIME TO D 
ELETE ALL THE LINE NUMBERS, BUT 
THIS REALLY WOULD TAKE SOME TIM 
E . " 

1680 PRINT" I THINK YOU WILL FIND 
SEVERAL USES FOR THIS COMMAND A 



FTER YOU HAVE WRITTEN SEVERAL PRO 
GRAMS." 

1690 GOSUB 2630 : GOSUB 2730 
1700 PRINT "THE DLOAD COMMAND (DOW 
NLOAD ) IS USED IN SCHOOLS AND 
WHERE THE COLOR COMPUTER IS HO 
OKED TO MAINFRAMES TO DOWNLOAD 
A" 

1710 PRINT" PROGRAM FROM THE OTHER 
COMPUTER" 

1720 PRINT :PRINT" PERSONALLY, I HA 
VE FOUND NO USE FOR IT, BUT YOU M 
AY BE USING IT IN YOUR SCHOOL." 
1730 PRINT" IT IS USED SIMILAR TO 
THE CLOAD COMMAND." 

1740 GOSUB 2630 : GOSUB 2740 
1750 PRINT "THE DRAW COMMAND IS ON 
E OF THE MOST POWERFUL GRAPHICS 
COMMANDS WE HAVE ON THE COLOR COM 
PUTER . " 

1760 PRINT "DRAW IS A COMPLEX COMM 
AND THAT ACCEPTS MANY VARIABLES, 
BUT THEYMUST BE IN THE FORM OF A 
STRING. " 

1770 PRINT"THE STRING FOR THE DRA 
W COMMAND MAY CONTAIN MOTION COMM 
ANDS, MODES OR OPTIONS." 

1780 GOSUB 2630 : GOSUB 2740 
1790 PR INT"MOT ION COMMANDS PRIN 
T"M=MOVE THE DRAW POS ITION" : PRINT 
"U = UP D = DOWN L = LE FT" 

1800 PRINT" R=RIGHT E=45 DEGREE 
ANGLE": PRINT"F=135 DEGREE ANG. 

G = 225 DEG. H=315 DEGREE ANG." 

1810 PRINT "X=EXECUTE A SUBSTRING 
& RETURN" 

1820 PRINT : PRINT "MODES: C=COLOR" 
1830 PRINT" A=ANGLE" 

1840 PRINT" S = S C ALE" 

1850 PRINT" OPTIONS : N = NO UPDATE 
B=BLANK" 

1860 GOSUB 2630 : GOSUB 2740 

1870 PRINT" DRAW ";CHR$(34);"BM128, 

96;U5;R5;D5;L5";CHR$(34) 

1880 PRINT :PRINT"IN OUR EXAMPLE A 
BOVE WE ARE DRAWING A BOX (5 

DOTS PER SIDE). THE FIRST PART IS 
BM1 28, 96 THIS IS <B>LANK <M> 

OVE TO SCREEN LOCATION 128, 

96" 

1890 PRINT" (CENTER SCREEN) NEXT W 
E HAVE U 5 , THIS MEANS GO UP 5 

DOTS. R 5, GO RIGHT 5 DOTS, D5 = 
DOWN 5 AND L5=G0 LEFT 5. THIS DR 
A W S A BOX." 

1900 GOSUB 2630: PM0DE4,1 : PCLS :SCR 



EEN1 ,1 

1910 DRAW'BMI 28,96; U5R5D5L5" 

1920 A$ = " D R E W THIS." 

1930 GOSUB 2750 

1940 GOSUB 2640 : GOSUB 2740 

1950 PRINT "LET'S LOOK AT WHAT DIR 

ECTION EACH OF THE DRAW COMMAN 

DS TAKES US." 

1960 GOSUB 2630 
1970 PM0DE4,1 : PCLS : SCREEN1 ,1 
1980 DRAW"BM128,96;NL50NU50NR50ND 
50NH50NE50NG50NF50" 

1990 DRAW'BMI 24,30": GOSUB 3360 
2000 DRAW "BM200, 100 ":G0SU3 3330 
2010 DRAW "BM120, 180 ":GOSUB 3190 
2020 DRAW"BM60,1 00" : GOSUB 3270 
2030 DRAW"BM60,45": GOSUB 3230 
2040 DRAW'BMI 90,45" : GOSUB 3200 
2050 DRAW"BM60,1 55" : GOSUB 3220 
2060 DRAW'BMI 90,1 55" :GOSUB 3210 
2070 GOSUB 2640 : GOSUB 2740 
2080 PRINT " DRAW ";CHR$ (34) ;"BM1 28, 
96;U25;R25;D25;L25";CHR$(34) 

2090 PRINT : PRINT"WE HAVE SHOWN TH 
E BOX. WITH THE DRAW. LIKE THE LI 
NE ABOVE . " : PRINT"NOTE : I F YOU DON' 

T SPECIFY A LENGTH FOR THE LI 

NE THE COMPUTERWILL USE 1" 

2100 PRINT :PRINT"NOW LET'S SET TH 
E SQUARE ON EDGE. (A DIAMOND! 

)" 

2110 GOSUB 2630: GOSUB 2740 
2120 PRINT" DRAW "CHR$(34) ;"BM1 28,1 
50;E25;H25;G25; F25";CHR$(34) 

2130 PRINT :PRINT"TAKE A LOOK." 

2140 GOSUB 2630:PM0DE4,1 :PCLS:SCR 
EEN1,1 

2150 DRAW'BMI 28,1 50; E25H25G25F25" 

2160 A$="L00K SMALL?" : GOSUB 2750: 
GOSUB 2640 

2170 GOSUB 2740: PRINT"YOU CAN MAK 
E IT LARGER WITH THE ADDITION 

OF JUST ONE LETTER S FOR SCALE. 

II 

2180 PRINT" DRAW ";CHR$(34);"BM1 28, 

1 50;S8;E25;H25;G25; F25";CHR$(34) 
2190 PRINT "S3 WOULD BE -3/4THS SCA- 
LE. S4 MEANS 4/4THS OR 1 TO 

1 SCALE THIS IS THE POWERUP SCAL 
E." 

2200 PRINT "YOU DON’T HAVE TO STOP 
AT THAT THOUGH, YOU CAN GO ALL 
THE WAY UP TO 62/4THS. OR ABOUT 
15 TIMESNORMAL. " 

Continued on Page 63 
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Binary Numbers 

by John B. Spa taro 

Binary numbers and codes are the 
basic Language of all microprocessors. 
Knowledge of number systems is essen- 
tial to understanding microprocessors. 

The number system we are all familiar 
with is the decimal system. This 
system was originally devised by 
Hindu mathematicians in India about 
400 A.D. After it was introduced to 
the European community about 1200 
A.D., it soon acquired the title "deci- 
mal number system." 



magnitude of that numbeF. For example, 
you know that a decimal number has 
positional weights of units, tens, 
hundreds, thousands, etc. For example 
consider the number 7438, in which 
there are 8 ones, 3 tens, 4 hundreds, 
and 7 thousands. The number can be 
written as indicated below: 

(7*10 3 ) + (4*10 2 ) + (3+10 1 ) + (8*10°) = 

7000 + 400 + 30 + 8 



A basic distinguishing feature of any 
number system is its Base or Radix. 
The base indicates the number of 
characters or digits used to represent 
quantities in that number system. 
The decimal system has a base of 
10 because we use the ten digits, 
0 - 9, to represent quantities. When 
the base is questionable, we use a 
subscript to define the base. Ci.e. 
487 .jq is derived from a number system 

with a base of ten.) 

The binary number system has a base 
of two since only the digits or bits 
0 and 1 are used in forming numbers. 
The number 1 1 01 01 ^ represents the 

decimal quantity 53 or 53^. 

The decimal number system came about, 
basically as a result of man having 
10 fingers. The binary system, while 
simple, is inconvenient to use because 
we are not familiar with it. It has 
special benefits when it comes to 
constructing the hardware used in 
digital equipment. A binary bit can 
be implemented with components of 
a simple on/off nature, such as, a 
switch or relay contacts or a transis- 
tor that conducts or does not conduct. 

Both the decimal and binary systems 
are positional or weighed number sys- 
tems. This means that each digit or 
bit position in a number carries a 
particular weight in determining the 
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(REMEMBER- ANY NUMBER WITH AN 
EXPONENT OF ZERO IS EQUAL TO ONE) 

To determine the value you multiply 
each digit by the weight of its posi- 
tion and add your results. 

Binary numbers work the same way. 
Each bit position carries a specific 
weight. As in the decimal system 
the position weights are some power 
of the base of the number system. 
Consider the binary number 1 1 01 01 2 . 

This can be written as: 

( 1 * 2 5 ) + ( 1 * 2 4 ) + ( 0 * 2 3 ) + ( 1 * 2 2 ) + 

( 0 + 2 1 ) + ( 1 * 2 °) = 

32 +16 + 0 + 4 + 

0 + 1 = 

53 10 

The quantity represented by the num- 
ber is determined by multiplying each 
bit by its position weight and obtain- 

ing the sum. 

Fractional numbers follow the same 
system. For example 78.94 can be 
written as: 

(7*1 0 1 ) + (8*10°) + (9*1 0** 1 ) + (4*1 O -2 ) 

70 + 8 + .9 + .04 = 



In a fractional binary number the 
weight of the fractional positions 

-1 

are negative powers of 2 or 2 = 







1/8 = .125, etc. 



The binary number 1101.101 is evalu- 
ated as shown below: 

( 1 * 2 3 )+( 1 * 2 2 )+( 0 * 2 1 )+( 1 * 2 °) +( 1 * 2 _1 ) + 

( 0 * 2 ~ 2 ) + ( 1 * 2 -3 ) = 

8 + 4 + 0 + 1+ .5 + 

.00 + .125 = 13.625 1q 

All digital computers store and pro- 
cess information using the binary sys- 
tem. A single binary digit is called 

a 'bit' and is usually grouped with 
8 bits which is called a 'byte'. Two 
bytes or 16 bits is called a word. 

This would indicate that number sys- 
tems to the base 8 (octal) and base 

1.6 (Hexadecimal) would be convenient 
to work with. The Hexadecimal number 
is most often used because they are 

shorter, and hexadecimal has become 
the standard for the microprocessor 
industry. 

To convert a Decimal number, to any 
other number system, divide the deci- 
mal number by the base of the other 
system, and the remainder from each 
division will form the number in the 
new number system beginning with 
the least significant digit. 

Convert 357^ to binary: 

01 2 5 11 22 44 89 178 357 
0 10 110 0 10 1 

Start from right to left: 357/2=178 R=1 

To convert to decimal, multiply the 
number by the base starting at the 
left, add next digit and multiply 
again. 

For Binary, base 2, double the MSD 
of the binary number and add this 
value to the digit in the next lowest 

order. Example: Convert 1 01 1 001 01 ^ 

10 110 0 1 0 1 

2 4 10 22 44 88 178 356 

2 5 11 22 44 89 178 357 



Although the computer handles Binary 
numbers with ease, people do not. 
To improve the situation we can write 
the instructions using Hexadecimal 
numbers. As the name implies hexa- 
decimal has <a base (radix) of 16. 
It has the digits 0-9 and the letters 
A - F. 

The letters are used because it is 
necessary to represent 16 different 
values with a single digit. The letters 
A - F are used to represent the value 
of 10 - 15. Using Letters in counting 
may appear awkward until you become 
familiar with the system. Table I 
illustrates the relationship between 
decimal, hexadecimal, and binary. 

Decimal to hex (short for hexadecimal) 
conversion is accomplished in the 
same manner as decimal to binary, 
as shown below: 

Convert decimal 47632 to Hexadecimal: 
47632/16 = 2977 remainder 0=0 (LSD) 
2977/16 = 186 remainder 1=1 

186/16 = 11 remainder 10 = A 

11/16 = 0 remainder 11 = B (MSD) 

BA10 16 = 47632 10 

To convert from Hexadecimal to Binary 
is really quite simple. 

Convert 3D7_|^ to Binary, D=13 

3 D 7 

0011 1101 0111 

Begin by setting each hex digit to its 
4 bit binary equivalent. Then run 
all the bits together. 

3D7 16 = 001 1 1 1 01 01 1 1 2 or 0011 1101 0111 

To change from binary to hexadecimal, 
break the binary number into groups 
of four bits starting at the right. 

The ease with which we can convert 
between binary and hexadecimal ex- 
plains the use of hexadecimal in as- 
sembly language programming. 



Binary 

Double 

Sum 
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A/L Programming 

by John B. Spataro 



The instruction part of a microproces- 
sor is a binary digit pattern. 
A program is a series of instructions 
that causes a computer to perform 
a particular task. Ultimately, every 
program is a set of binary numbers. 

In a machine language, or object, 
program the first instruction might 
be: 10110110 

Can you imagine remembering that 
code. We can improve the situation 
somewhat by using hexadecimal num- 
bers. The instruction now becomes 
(You know how to convert it, don't 
you?) "B6". Now we will need a pro- 
gram to load the hexadecimal numbers, 
convert them to binary numbers, and 
place them in memory. This is usually 
part of a larger program called a 
'monitor', which also provides tools 
for debugging and analysis. 

An obvious improvement is to assign 
a name to each instruction code. The 
instruction code name is called a mem- 
ory jogger or "MNEMONIC". All micro- 
processor manufacturers provide a 
set of mnemonics for the microproces- 
sor instruction set. (They can not 
remember hexadecimal codes either.) 
There is nothing sacred about these 
mnemonics; however, they are standard 
for a given microprocessor and; there- 
fore, understood by all users. If 
we use the standard 6809 instruction 
and register mnemonics, as defined 
by Motorola, our previous instruction 
becomes - "LDA" or Load Accumulator. 
The next line would be either the 
address in memory that holds the 
data or the data itself. This is now 
becoming an assembly language, or 
source, program. 

Now how do we get the assembly lan- 
guage program into the computer? We 
have to translate it either into hexa- 
decimal or binary numbers.' Although 
it is possible to 'hand assemble' 
this is a task usually done by the 
microcomputer using an "assembler" 
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program. The assembler program will 
translate a 'source' program, written 
with mnemonics, into a machine or 
'object' program which the micro- 
computer can execute. An assembler 
is a program, just as the hexadecimal 
loader is a program. Assemblers are 
more expensive, occupy more memory, 
and require a greater execution time. 
While users may wish to write their 
own loaders, few care to write their 
own assemblers. Furthermore, the 
assemblers have their own rules that 
you must learn. These include use 
of certain markers (such as spaces, 
commas, semi-colons, or colons) in 
appropriate places, correct spelling, 
the proper control of information and 
the correct placement of names and 
numbers. The rules are simple and 
quickly learned. 




• TANKS • SPIDERS -BLOCKS • CYCLES • 



Battle spiders! Blast you r way through the descending blocks! Oefeat the 
enemy tanks! Trap the menacing cycles! Increasing levels of difficulty make 
each a real challenge! KRON is a fast ML program with multi-colors, Hl-Res, 
and many great sounds. It displays the top five scores plus has a pause feature 
and display mode. 

32K STANDARD-JOYSTICK TAPE-DISK S2t.95-S29.95 



KING PEDE 

The ultimate pede game! You'll face up to eight different enemies including 
swarms of wasps. ML— multi-color. 

32K STANDARD. JOYSTICK TAPE-DISK S24.95-S27.95 



MEM-OS64 

A 64K Menu Driven ML Utility which allows you to store multiple ML or Basic 
programs in the high 32K RAM then pull the desired program and Run/Exec It. It 
maintains a directory, displays the amount of free memory and length of pro- 
grams. has a Motor/Audio On/Off command, a Load and Kill command, and 
allows the easy switching of programs with disk-like speed! With the Multiple 
Load feature, you can load several programs at once with ease! 

64K EXTENDED TAPES15.95 



PEEKCOPY 

Copies tape-based software (even most autostarts), displays memory in Hex 
and ASCII, displays the Start. End. and Exec addresses of ML programs, allows 
the changing of memory, and more (ML)! 

16K STANDARD TAPE $11.95 



REDUCIT 

A ML program that makes your Basic programs use less memory and run more 
efficiently (faster) by combining lines and removing unnecessary spaces and 
remarks! 

16K STANDARD TAPE $9.95 



PLEASE ADD $2.00 EACH ORDER. POSTAGE/HANDLING 

OREGON COLOR COMPUTER SYSTEMS 
P.O. BOX 11468. EUGENE, OR 97440 
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Disadvantages of A/L 

by John B. Spataro 



The assembler does not solve all the 
problems of programming. One problem 
is the tremendous gap between the 
microcomputer instruction set and the 
tasks which the microcomputer is 
to perform. Computer instructions 
tend to do things such as, add the 
contents of two registers, shift the 
contents of the Accumulatoron bit, 
or place a new value in the program 
counter., The assembly language pro- 



grammer must translate whatever the 
program is expected to 'do into a 
sequence of simple computer instruct- 
ions. This can be a difficult and 
time consuming job. Furthermore, the 
programmer must have detailed know- 
ledge of the particular microcomputer 
being used. He must know what regist- 
ers and instructions the microcomputer 
has, how the instructions affect the 
various registers, what addressing 



I.C.C.C. MEMBERS 10% DISCOUNT 

TRS-80+ MOD I, III. COCO, TI99/4a 
TIMEX 1000, OSBORNE, others 

GOLD PLUG - 80 

Eliminate disk reboots and data loss due to oxi- 
dized contacts at the card edge connectors. 

GOLD PLUG 80 solders to the board edge con- 
nector. Use your existing cables, (if gold plated) 

CALL OR WRITE FOR COCO PRODUCT CATALOG 

GOLD PLUG 80 Mod I (6) 

Keyboard/ El (mod I) 

Individual connectors 
COCO Disk Module (2) 

Ground tab extensions x 
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Gold Disk Cable 2 Drive 
Four Drive Cable 
GOLD PLUG 80 Mod III (6) 
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USA shipping $1.45 
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methods the computer uses, and a 
mass of other information. None of 
this information is related to the 
task which the microcomputer must 
ultimately perform. 



Rhine cards for the letters of the 
alphabet used, and have the user 
guess the correct card. 

This program is meant for a 16K ECB. 



In addition, the assembly language 
programs are not portable and each 
microcomputer has its own assembly 
language which reflects its own archi- 
tecture. 



ESP 

by James T. Crawford 

ESP is an abbreviation standing for 
Extra Sensory Perception. There is 
considerable argument in the scientific 
community over the actual existence 
of ESP. The Laboratory results have 
proved inconclusive at best, while 
in the world of the mass media ESP 
and related paranormal concepts re- 
ceive ever increasing attention. 

This program allow you to test for 
one of the kinds of ESP: precognitive 
ability, or the ability to predict 
the future. The computer will select 
one of the first five tetters of the 
alphabet and you will have to guess 
the letter. Each series consists of 
50 guesses. 

You are given two options in this 
program. In one option you will be 
told immediately if your guess was 
right or wrong. In the other option 
you will not be told your results 
until the end of the 50 guesses. 

You will be asked to record your 
results, and then enter them so that 
the computer can show you a graphic 
representation of your attempts. 

This is a very simple program and 
can be easily modified, although I 
do not suggest increasing the number 
of guesses in a run. The ability to 
successfully predict future events 
seems to decrease the more it is used 
in a single setting. If you wanted 
to make this a more graphic program, 
you could substitute drawings of the 
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Lines 10-540 Basic instuctions to the 
User 

Lines 550-630 Option is selected 

Lines 640-680 User is asked to make 
their choice 

Lines 690-740 Computer picks a letter 

Lines 750-790 Guess increased. Computer 
sees if the run is com- 
pleted 

Lines 800-830 Computer tells user 
how many guesses were 
correct 

Lines 840-880 Results are evaluated 

Lines 890-940 User is given a chance 
for another trial 

Lines 970-1010 User inputs guess for 
Option 2 

Lines 1020-1070 Computer picks the 
letter 

Lines 1080-1100 Computer sees if run 
is completed. 

Lines 1110-1150 User is told if guess 
is correct or incorrect 

Lines 1160-1190 User is told how many 
he had correct 

Lines 1200-1230 Results are evaluated 

Lines 1240-1270 Instructions for use 
of the graph 

Lines 1290-1770 The graph is con- 
structed 

Lines 1780-1820 Final statements are 
made 

Lines 1850-2050 Graphic border is 
drawn for instructions 

Lines 1830,1840,82060 End the program 




10 CLS 

20 SOUND140,3:SOUND160,3:SOUND180 
,3: SOUND200,3 

30 PRINTa135,"esp test program" 

40 PRINT 3167, "by james t. crawfo 



rd" 

50 PRINT3230," DURING THE PROGRAM, 
WHEN" 

60 PRINT3259," YOU ARE READY TO MO 
V E ON," 

70 PRINT3292, "PRESS ANY KEY TO CO 
NTINUE" 

80 G0SUB1 850 

90 A$=INKEY$: IF A$=""THEN90 

100 SOUND140,2:SOUND160,2 

110 CLS:G0SUB1850:PRINT369,"INSTR 

UCTI0NS?(Y/N)":S0UND135,2:S0UND14 

5,2:S0UND155,2:INPUTI$:IFI$="N"TH 

EN 550 ELSE 130 

120 T=0 

130 CLS : PRINT372,"THIS PROGRAM WI 
LL HELP" 

140 PRINT399,"Y0U TO DETERMINE IF 
YOU HAVE" 

150 PRINT31 95,"eXTRAsENS0RY pERCE 
PTION" 

160 PRINT3292,"THE COMPUTER WILL 
USE" 

170 PRINT3325," 5 LETTERS FOR THE 
TEST. " 

180 G0SUB1 850 

Ocnttnued on Page 49 
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BREAKTHROUGH ! ^^^rompak 
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THE VOICE PAK - COCO VOICE SYNTHESIZER 
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\t\ UNLIMITED VOCABULARY 
[t] AUTOMATIC INFLECTION 

\t\ THE FAMOUS VOTRAX SC01 PHONEME SYNTHESIZER 

[t] FOUR PROGRAMMABLE PITCH LEVELS 

[tj ADD VOICE TO ANY BASIC PROGRAM IN MINUTES 

[v] SUPER EFFICIENT - A SINGLE LINE IN BASIC 
PRODUCES A FULL SENTENCE 

[3 COMES COMPLETE WITH USERS MANUAL AND 
SOFTWARE CASSETTE 

[t] VOICE EDITOR CREATES AN UNLIMITED NUMBER OF 
WORDS, SOUND EFFECTS, ETC... 

\t\ NOW COST EFFECTIVE IN EDUCATION, ROBOTICS, 
SPEECH THERAPY, GAMES, AID TO HANDICAPPED, 
SECURITY, ANY PROMPTING APPLICATION 

[t] FULLY ASSEMBLED AND TESTED 

[t] 90-DAY WARRANTY 

[t] READY TO PLUG IN AND TALK I 
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- SOFT AND HARD WARES FOR COLORFUL COMPUTING - 



Continued from Page 47 
190 A$=INKEY$: IF A$=""THEN1 90 
200 S0UND1 40,2: S0UND1 60,2 
210 CLS 

220 PRINT337,"THE COMPUTER WILL P 
ICK" 

230 PR I NT366, "ONE OF FIVE LETTERS 

II 

240 PRINT398,"<A,B,C,D,E> AT RAND 
OM. " 

250 PR I NT 3 1 64, "YOU WILL BE ASKED 
TO" 

260 PRINT31 94," PICK WHAT LETTER Y 
OU THINK" 

270 PRINT3226,"THE COMPUTER SELEC 
TED . " 

280 PRINT3324,"Y0U WILL HAVE TWO 
OPTIONS" 

290 PRINT3354,"T0 CHOOSE FROM." 
300 G0SUB1 850 

310 A$=INKEY$: IF A$=""THEN310 
320 S0UND1 60,2 : S0UND1 80,2 
330 CLS 

340 PRINT336,"IN OPTION 1 YOU WIL 
L" 

350 PR I NT366, "NOT BE TOLD YOUR RE 
SULTS" 

360 PRINT398, "UNTIL THE END OF TH 
E TEST." 

370 PRINT31 34, "IN OPTION 2 YOU WI 
LL" 

380 PRINT31 62, "BE TOLD IF YOUR GU 
ESS" 

390 PRINT31 94, "WAS RIGHT OR WRONG 
AFTER" 

400 PRINT3226,"EACH GUESS." 

410 PRINT3324,"BY CHANCE YOU SHOU 
LD" 

420 PRINT3354,"GET ONE RIGHT OUT 
OF" 

430 PRINT3386, "EVERY FIVE." 

440 G0SUB1 850 

450 A$=INKEY$: IFA$=""THEN450 
460 S0UND160,2:S0UND180,2 
470 CLS 

480 PRINT336," THERE WILL BE 50 GU 
ESSES" 

490 PRINT366,"T0 EACH SET." 

500 PRINT31 32, "JOT DOWN THE NUMBE 
R":PRINT3162, "CORRECT AFTER EACH 
SET." 

510 PRINT3293, "AFTER YOU FINISH T 
HE":PRINT3322, "TEST, YOU CAN GRAPH 
YOUR" : PR I NT3354, "RESULTS ." 

520 G0SUB1 850 

530 A$=INKEY$: I F A$=" "THEN530 



540 S0UND180,2:S0UND200,2 
550 CLS 

560 PRINT336, "CHOOSE YOUR OPTION: 

II 

570 PRINT 399, "1. RESULTS -AT END 
OF TEST" 

580 PRINT31 31 ,"2. RESULTS AFTER E 
ACH GUESS" 

590 GOSUBl 850 

600 PRINT : PRINT: INPUT"PICK OPTION 
1 OR 2" ; N 

610 IF N>2 THEN GOTO 600 
620 IF N = 1 THEN. GOTO 640 
630 IF N=2 THEN GOTO 970 
640 CLS:N=0:G=1 
650 CLS 

660 PRINT 34," GUESS NUMBER--"; G 
670 PRINT368,"PICK FROM A,B,C,D,E 

M 

680 PRINT :PRINT : INPUT "CHOICE?A,B, 
C,D,E";A$ 

690 L = RND (5) 

700 IF L = 1 THEN C$ = "A" 

710 IF L=2 THEN C$="B" 

720 IF L=3 THEN C$="C" 

730 IF L=4 THEN C$="D" 

740 IF L = 5 THEN C$ = "E" 

750 G=G+1 

760 IF G<=40 THEN GOTO 780 
770 IF G = 5 1 THEN GOTO 800 
780 IF A $= C $ THEN N = N + 1 
790 GOTO 650 
800 CLS 

810 PRINT336,"Y0U H AD-"N"-R I GHT" 
820 PRINT31 00, "THIS IS A PERCENTA 
GE" 

830 PR I NT 31 30,"0F-"N/5 0*1 00"%" 

840 GOSUBl 850 

850 IF N<1 0 THEN PR I NT 33 2 4 , " YO U R 
SCORE WAS BELOW": PR I NT33 5 3 , " A VE R A 
GE.": FOR X=1 TO 2 000 : NEXTX : G0T0890 
860 IF N=10 THEN PR INT3324, "YOU S 

CORE IS ": PRINT 33 53, "AVERAGE": F 

OR X=1T02000:NEXTX:60T0890 

870 IF N>1 0 AND N<=16 THEN PRINTS 

324, "YOUR SCORE IS ":PRINT3353, 

"ENCOURAGING.": FOR X=1T02000:NEXT 
X:G0T0890 

880 IF N>1 6 THEN PR I NT3324 , " Y 0 U R 
SCORE WAS ":PRINT3353," GOOD! !":FOR 
X=1T02000:NEXTX:G0T0890 
890 ' 

900 PRINT : PRINT : INPUT "TRY AGAIN? ( 
Y/N) A$ 

910 T=T+ 1 

920 IF A$=" Y" THEN GOTO 550 
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930 IF A$="N" THEN GOTO 950 

940 G0SUB1 850 

950 G0T01240 

960 GOTO1820 

970 CLS : N=0 : G = 1 

980 CLS 

990 PRINT34, "GUESS NUMBER-" ;G 
1000 PRINT368,"PICK FROM A,B,C,D, 
E " 1 

1010 PRINT :PRINT : INPUT "CHOICE?A,B 
,C,D,E"; A$ 

1020 L=RND ( 5 ) 

1030 IF 1=1 THEN C$="A" 

1040 IF L=2 THEN C$="B" 

1050 IF L=3 THEN C$="C" 

1060 IF L=4 THEN C$="D" 

1070 IF L = 5 THEN C$ = "E" 

1080 G=G+1 

1090 IF G<50 THEN GOTO 1110 
1100 IF G = 5 1 THEN GOTO 1130 
1110 IF A$ = C $ THEN N=N+1 : PRINT341 
6, " CORRECT. FOR X = 1T0500:NEXTX: GO 
TO 980 

1120 IF A$OC$THEN PR INT341 6, " I NC 
ORRECT. IT WAS-"; C$ : FOR X=1T0500: 
NEXTX.-GOTO 980 

1130 IF A$=C$ THEN N=N+1 : PRINT341 
6, "CORRECT." :F0RX=1T0500:NEXTX:G0 
T01160 

1140 IF A$OC$ THEN PR I NT34 1 6, " I N 
CORRECT. IT WAS-"; C $ : FORX = 1T0500: 
NEXTX : G0T01 1 60 
1150 G0T0980 
1160 CLS 

1170 PRINT336,"Y0U HAD-"N" -RIGHT . 

If 

1180 PRINT 366, "THIS IS A PERCENT 
AGE 0F-"N/50*1 00"%" 

1190 G0SUB1 850 

1200 IF N<10 THEN PR I NT33 2 4, " YOUR 
SCORE WAS BELOW ":PRINT3353," AVER 
AGE . ": FORX=1T02000: NEXTX: G0T0890 
1210 IF N=1 0 THEN PR INT3324, "YOUR 

SCORE IS " :PRINT33 53, "AVERAGE" 

: FO R X = 1T02000:NEXTX:GOTO890 
1 220 IF N>1 0 AND N< = 16 THEN PRINT 

3324, "YOUR SCORE IS ":PRINT3353 

," ENCOURAGING. ":F0RX=1T02000:NEXT 
X: G0T0890 

1230 IF N>1 6 THEN PR I NT33 24, " YOUR 
SCORE WAS ":PRINT3353," GOOD! !!":F 
0RX=1 TO 2000: NEXTX : G0T0890 
1240 CLS : P R I NT336, " TH E GRAPH WILL 
SHOW" : PRINT366,"UP TO FIVE TRIAL 
S . " 

1250 PRINT3132,"IF YOU DID FEWER 
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THAN ": PRINT31 62, "FIVE, ENTER 0 FO 
R THE":PRINT3194, "REMAINING TRIAL 
S." 

1260 GOSUB 1850 

1270 S0UND1 50,2:SOUND170,2:SOUND1 
90,2 

1280 A$=INKEY$: I FA$=""THEN1 280 
1290 CLS 

1 300 PRINT3352,"T5":PRINT3288,"T4 
" : PR INT3224, "T3" : PR INT31 60, "T2" : P 
RINT396,"T1 " 

1310 PRINT3455,"10": PR I NT3460, " 20 
": PRINT3465,"30": PR INT3470, "40" : P 



RINT3475,"50" 






1320 


FOR V=5T027 






1330 


SET (5, V, 3) 






1340 


NEXTV 






1350 


FOR H = 5T05 5 






1 360 


SET (H, 27, 3) 






1370 


NEXTH 






1380 


PRINT33, "TRIAL 


ONE SCORE-" 


1390 


INPUT N: IFN>50THEN1 380 


1400 


N = N + 5 






141 0 


FOR H=5 TO N 






1420 


SET (H, 7, 3) 






1430 


NEXTH 






1440 


FOR X = 1 T 0 1 000 : 


NEXTX 




1450 


PRINT332," 


II 




1460 


PRINT33, "TRIAL 


TWO SCORE-" 


1470 


: INPUT N: IFN>50THEN1460 


1480 


N = N + 5 






1490 


FOR H=5T0N 






1 500 


SET (H, 11, 3) 






1 510 


NEXTH 






1520 


FOR X=1 T01 000 : 


NEXTX 




1530 


PRINT332," 


II 




1 540 


PRINT33, "TRIAL 


THREE 


SCORE 


1550 


INPUT N : I F N>50 THEN 


1 540 


1 560 


N = N + 5 






1570 


FOR H=5 TO N 






1 580 


SET(H,1 5,3) 






1 590 


NEXT H 






1600 


FOR X=1T01000: 


NEXTX 




1610 


PRINT332," 


II 




1620 


PRINT33, "TRIAL 


4 SCORE-" 


1630 


INPUT N : I F N>50 THEN 


1620 


1640 


N = N + 5 






1650 


FOR H = 5T0N 






1660 


SET C H , 1 9,3) 






1670 


NEXTH 






1680 


FOR X=1T01000: 


NEXTX 




1690 


PRINT332," 


II 




1 700 


PRINT33, "TRIAL 


FIVE 


SCORE- 


1 71 0 


INPUT N: IFN>50THEN1 700 


1 720 


N = N + 5 







1 730 FOR H = 5 TO N 
1740 SET (H,23,3) 

1750 NEXTH 

1760 PRINT332, "PRESS <E NTE R > TO C 
ONTINUE" 

1770 A$=INKEY$: IF A $=" "T H E N 1 770 
1780 CLS:PRINT336,"*****ANALYSIS* 
****" 

1790 PRINT31 00, "SCORES USUALLY GO 
DOWN ":PRINT3130," THE MORE ONE TA 
KES THE TESTS." 

1800 PRINT 3197, "IF YOU BELIEVE Y 
OU" : PRINT3226,"HAVE ESP, OR YOU J 
UST WANT":PRINT3258,"T0 KNOW MORE 
ABOUT IT, CHECK ":PRINT3290," THE L 
IBRARY TO FIND SOME 0 F " : P R I NT332 2 
, "T H E MANY BOOK ON E . S . P . " 



1810 


PRINT341 8,"TH 


ANKS FOR 


THE 


TEST" 




1820 


G0SUB1 850 




1 830 


END 




1840 


G0T01 840 




1850 


FOR V=1 024T01 


055 


1860 


R=RND (255) 




1870 


IF R <1 44 THEN 


1860 


1 880 


POKE V, R 




1890 


NEXT V 




1900 


FOR V = 1 504T 01 


535 


1910 


R=RND (255) 




1920 


IF R <1 44 THEN 


1910 


1930 


POKE V , R 




1 940 


NEXT V 




1950 


FOR V=1 056T01 


472STEP32 


1960 


R=RND (255) 




1970 


IF R<1 44THEN1 


960 


1980 


POKE V, R 




1990 


NEXT V 




2000 


FOR V=1 087T01 


503STEP32 


2010 


R=RND (255) 




2020 


IF R<1 44THEN2 


010 


2030 


POKE V, R 




2040 


NEXTV 




2050 


RETURN 




2060 


G0T02060 





START MEMORY OF 22823 

MEM LEFT AFTER RUNNING IS 17506 

TOTAL MEMORY USED IS 5317 



continued from Page 8 

fair due to several system differences. 
COLOR COMPUTER NEWS did a compar- 
ison in June using short loops with 
simple math calculation using the num- 
ber ten. I have made a number of 
changes in their basic loops to give 






a better overall picture of the real 
situation. 

It should be noted that, under FLEX 
& TSC BASIC, for a constant to be 
internally represented in floating point 
format it must contain a decimal. 
Refer Fig. A (pg98) to see how obvious 
the time differences are. Note that, 
under TSC BASIC, the fastest calcula- 
tions use integer variables and integer 
constants in an integer loop. 

TSC XB ASIC is faster, because MICRO- 
SOFT on the computer does not let 
you specify integers. By using TSC 
XBASIC I can run circles around COLOR 
DISK BASIC. I still need MICROSOFT 
because the graphics commands are 
great. 

I have a couple of complaints about 
both forms of basic. Neither will 
let me define a strinq function such 
as DEF FN A$(B$) = MID$(B$,5,1 0) . It 

would be much faster than a GOSUB, 
plus it would save memory. Do you 
know if BASIC09 will be able to per- 
form this type of function? 

The fact that only one variable can 
be passed in the DEF Function is 
severly limiting. Most mathematical 
formulas require more than one var- 
iable. The Model 3 and Model 4 will 
pass at least 5 (or more). Where 
can I get a BASIC that will let me 
do these things? (Wish Radio Shack 
would release a 6809 based Model 
4 style computer.) 

My computer has evolved from a 16K 
(D board) tape based machine to a 
64K-FLEX system with two 40-track 
single-sided Tandon drives and one 
double-sided 40-track CDC drive, 
a Model-3-key board and a DMP400 

printer. 

By the way, I did all the modifi- 
cations myself. If you still need some 
help, I will take a shot at answering 
some of the questions posed by mem- 
bers. 



Continued on Page 98 
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CANT FIND YOUR PROGRA AS?? 

Don't Be FRUSTRATED 



The Cassette Storage Index 
con Simplify finding and 
loading your Programs 




• 104 PAGES 5% X 8% INCHES - ROOM FOR 420 LISTINGS 

• 2 SECTIONS - ALPHABETICAL AND BY TAPE NUMBER 




SECTION ONE 



ALPHABETICAL INDEX 



FILE NAME 


N... 


S«Jc 


Counw 
Sum No 




3 


/ 


/OS- 




3 


X 


/6o 


f >1^ 1 ' 


c 


/ 


Zto 












In this section you list your programs (fields) alpha- 
betically along with tape number, tape side and 
counter start number. To load a program look up 
your field name. When located you have all the 
information you need to load your field. 



SECTION TWO 



FILE INFORMATION SHEET 



TAPE 

No. 



© 



r., N »£*~L. 'd*£(AVif " 7A/fz. li<R / 

srs,. for 'tar;*. lor U - 



TsLcOL 




This section lists your programs (fields) by tape 
giving you a cross reference of your fields along 
with more complete field and recording information. 
In this section you enter the finish number as well 
as the start number of your fields so you know 
where to start recording a new field on the tape. 



Also being used by 
Music and Video 
Cassette users. 



PLEASE SEND 



CASSETTE STORAGE INDEX(ES) AT $9.95 EACH PLUS $1.75 
HANDLING AND SHIPPING CHARGES (Wa Res. add 8.1% tax). 




NAME 



ADDRESS 



o x 



PHONE 



AMOUNT OC CHECK OR MONEY ORDER 

ALLOW THREE TO FOUR WEEKS TOR DELIVERY 

MAKE CHECK OR MONEY ORDER PAYABLE TO: 



RINTING 



TOWNSENDS SPECIALTY PRINTING 



$1.00 Off to Club Members 



1007 NORTH 32nd STREET 
RENTON, WASHINGTON 98056 



Hot New Info in the world of the 



Magazines 

by Don H. Garrett 

This is going to be a regular column 
in our newsletter to bring you, our 
members and readers, the inside and 
up-to-date story in the world of the 
ever growing line of magazines and 
publications for the CoCo. 

Let's see this month we have a lot 
of new and exhilerating information. 

RAINBOW 

First, RAINBOW is up to 65,000 paid 
circulation with their rates going 
up to $28 per year for U.S. subscrip- 
tions (to you members it is $25.20 
per yea r\. They have opened up a 
west coast branch for advertising, 
which they now have three branches 
for advertising, Tacoma, WA; Prospect, 
KY; and Duxbury, MA. RAINBOW has 
grown to 340 pages (even though they 
shrunk to 324 this issue), which does 
make it the biggest Color Computer 
Magazine around. The best? I suppose 
you could say that, since it covers 
everything from Games 8 Education 
to Utilities & Bussiness applications. 
They are adding column after column 
continuously, for instance a childrens 
learning column. 

I would like to wish Lonnie Falk, 
Mrs. Falk, Jim Reed, Pat Hirsch, 
and the rest of the staff a Happy 
Valentines Day. I really don't think 
anyone can beat the RAINBOW in size, 
quality, or subscription circulation. 

CCM 

Second, CCM (Color Computer Magazine 
is doing very good for their first 
year in business at publishing a Color 
Computer related magazine. I really 
do not know what kind of subscription 
rate they have now, but it must be 
fairly large or they would not still 
be in business, right? Oh well, I 
would like to wish them continued 



success and wish Kerry Leichtman, 
David Ezequelle, and all their staff 
a Happy Valentines Day. I do wish 
we were still receiving a discount 
from them to our club members. It 
would increase their business by a 
wide margin. 

CCN 

CCN, Uh oh, here is the bad news. 
The first Color Computer related mag- 
azine printed is having problems and 
has ceased publication until further 
notice. Well, with RAINBOW, CCM, 
and Hot CoCo making a smash hit 
with every CoCo user someone had 
to lose out. I am sorry it is Color 
Computer News though, since they 
were the very first. According to 
a lady that I talked to, at CCN, they 
are going to fulfill all subscriptions 
presently out with their next publi- 
cation (last was September) due no 
earlier than January. All subscriptions 
will be extended, according to Dianne 
Wright, whom I talked to at CCN on 

several occassions. I wonder what will 
eventually happen to them? You know 
they had just started publishing their 
second magazine titled Forum 68 also. 
Dianne said they had equipment prob- 
lems and just couldn't keep the big 
presses working. I wonder if it had 
something to do with a shortage of 

funds or not? Anyway, Dianne and 
Bill and Arv you'll have a Happy 
Valentines Day and try to get every- 

thing back going again. We would 
hate to see you just fade into the 

sunset. 

(♦Editor's Note: All CCN orders that 

were sent to the club can be returned 
to you if you want or we will hold 
them pending outcome of the CCN*) 

Hot CoCo 

Hot CoCo, here is the big news or 
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is it? Wayne Green has made another 
success with Hot CoCo, or so their 
subscription figures show. They state 
and I quote, "The total number of 
copies distributed for the November 
issue were: HOT CoCo 100,000", and 

then they went on to say, "The in- 
creased newsstand distribution ranges 
from 35,000-45,000 copies per month." 
Are these figures correct? Could they 
have possibly passed RAINBOW in 
only 6 or 7 publications against the 
three years of publication of RAINBOW? 
I don't know, but if they are RAINBOW 
may be in trouble. Oh not RAINBOW. 
March's HOT CoCo will focus on the 
MC-10 in its entirety. From COLOR 
BASIC Programs changed to MICRO 
COLOR BASIC to Reviews and technical 
data. Although they don't plan on 
forgetting the "big brother", the CoCo, 
either. They will have articles on 
interfacing the CoCo to the real world. 
Well, this would not be complete if 
I did not wish Beverly Porier and 
all the HOT CoCo staff a Happy Valen- 
tine's also. ! 

ccw 

Color Computer Weekly is a complete 
question mark. I don't know what 

has happened to them. One time at 
an earlier time they did not send 
us any issues, not even our subscrip- 
tion copy, but then about 3-5 weeks 
later they started sending them again 
for about 4 weeks then quit again. 
The first time I thought they went 
out of business, but I was proved 
wrong. Now if I could be proved to 
be wrong again, by them sending the 

issues to us, I would appreciate it. 
Happy Valentines CCW. 

CMJ 

Color Micro Journal, one of the newest 
but oldest publications to come out, 
is doing fairly good for their first 

five issues. If you wondering what 
I meant by newest but oldest, it is 
simple, the people who publish '68' 
Micro Journal branched a' part of the 
'68' Micro Journal off to form Color 

Micro Journal because they thought 
our little computer required more 
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attention than they could give in '68' 
Micro Journal. If you are wondering 
what difference it makes if CMJ is 
coming from the '68' Micro Journal 
staff. Well, it is as they stated in 
their leaflet, "We ('68' Micro Journal) 
were the very first magazine to cover 
the Color Computer. Over the past 
three (3) years '68' Micro Journal 
has published more 'meat and potatoes' 
type of material than any other mag- 
azine for the Color Computer User." 
Now do you see why it is important? 
Color Micro Journal publishes a 32 
page, 12" X 16" journal. Quite a big 
size. They have columns on OS-9, 
FLEX, Disks, and Computer Operating 
Systems. They also have programs, 
reviews, and news releases. I think 
they are going to be a great publica- 
tion for the CoCo User. Happy Valen- 
tines Day CMJ and staff. 

To end this off I hope everyone will 
write in and comment on this section 
or at least what is in it. Thanks, 
and Happy Valentines Day to all. 
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A HAPPY COCOING NEW YEAR 

from 

SAVE-A-BYTE 

_n_n_ru~i_n_ 



OUR New Year’s Resolution is to help you Save More in ’84!! 

1983 1984 

1. CoCo Battery Backup - $90.00 -. $69.95 

• See Ad in Sept/Oct/Nov RAINBOW 

• Reviewed by RAINBOW in Dec issue 

• RAINBOW Certification Seal 

• See Last Newsletter (page 57) 

2. CoCo 2 Battery Backup (NEW) $59.95 

(without battery) 

3. ROM Pac PC Board & Cartridge ^ 9.95 - $ 4.95 

(for 27xx EPROMS) 



4. 64K RAM Chip Set (8) • $45.95 



Attention NEW CoCo2 owners: upgrade now and SAVE!! 



$10.00 minimum order 
VISA/MC Welcome 
Mail checks to: 



Add $ 2.50 Shipping/Handling 
Call 803-356-2398 
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SAVE-A-BYTE 
2857 Emanuel Church Rd. 
West Columbia, SC 29169 



MichTron 

MichTron is our new corporate identity. 
Computer Shack is being sued by 
Tandy. Tandy has a trademark on 
the words "The Shack" and they say 
that Computer Shack cannot use the 
word Shack in its name. The way 
it Looks right now is that Computer 
Shack simply doesn't have enough 
money to defend itself against the 
Tandy Corporation/. and will have 
to change it's name. 



the programs on the market and after 
talking to many people we pick the 
best. We at MichTron feel the TELE- 
WRITER 64 is the best word processor 
ELITE CALC is the best Calc Sheet 
and Spectrum's COLOR COM E is the 
best smart terminal. Therefore, this 
is what we carry and recommend. 
We want nothing but the best for our 
customers. 

This is a list of MichTron's Top Ten 
for the month of December, some of 
which are reviewed in this newsletter. 



Since Computer Shack is getting an 
excellent reputation for fast delivery 
and excellent quality software for 
the Color Computer we decided to 
form a new company to market the 
Computer Shack COCO software and 
MichTron is it. Computer Shack will 
continue to publish software for the 
Model I/III/4. 

Sometimes being an independent dealer 
has its advantages.. We look at all 



#1 CASHMAN 
#2 DEMON SEED 
#3 TIME BANDIT 
#4 LUNAR PATROL 
#5 LANCER 
M6 FURY 
Ml OUTHOUSE 
#8 CHOPPER STRIKE 
#9 THE KING 
#10 MUD PIES 



$27.95T/$29.95D 
S27.95T /S29.95D 
$27.95T/$29.95D 
S24.95T /S28.95D 
S24.95T /S28.95D 
S27.95T /S29.95D 
S27.95T /S29.95D 
S27.95T /S29.95D 
$26.95T/$29.95D 
S27.95T /S29.95D 




Travel the channels 

destroying the 
SPIDERS before 
they annihilate 
YOU!!! 



ARCADE STYLE GAME 
[16K Color-Joystick-ML] 
Tape $19.95 

The Spider is an all-machine-language program with very good 
sound, excellent graphics and super action. 

You zoom along through a vividly-colored tunnel that’s loaded 
with exceptionally realistic spiders, attempting to align them with 
your laser scope and blast them before they get you. I found it quite 
difficult to hit them, as my point display disconcertingly reminded 
all who watched, but then It takes these wicked web-wenders awhile 
to annihilate you the allotted five times, as well. I found this to my 
liking, because I enjoyed the prolonged action. You use the right 
joystick to manipulate the cross-beam of your scope, and, of 
course, the fire button to activate your laser. The point system is 
adequately explained in the documentation, so I needn't go into that 
here, except to say that if you manage 500 points you’ll receive an 
extra life to devote to battling these belicose little beasties. 

There’s one more point I’d like to add here, and that is that, even 
though it wasn't mentioned in the documentation, playing The 
Spider while wearing a pair of 3-D glasses gives one of the best 
dramatic-depth effects I’ve yet seen. You lose some of the vivid 
colors by doing so, but then you can always take them off whenever 
you want and go back to playing the straight game. 

—Courtney Noe 

Gamester Software 

^9 Southmoor Circie, Kettering, Ohio 45429 
[513] 294-3383 [12-6 for phone orders] 

Checks, credit card [VISA/MC], or COD accepted. 
SAME DAY SHIPMENT / 
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Depth of Field, PHOTO Programs 



by Paul D # Kirkpatrick 

This month's "Depth of Field" 
program will aid you in taking 
better pictures. 

For those who are unfamiliar 
with the term "Depth of Field", 
it can be easily stated as 
being, "All that is in focus in 
front of and behind the main 
object (focal point) on which 
you focus the camera". This will 
vary depending on the focal 
length of the lens you are 
using. This can be found printed 
on the front of the lens. 

This makes this program ideal 
for rangefinder cameras where 
you cannot visually see the 
effect you will get with a depth 
of field preview button. It 
should be noted that the program 
is for NORMAL LENSES ONLY. 

The program was written in Non- 
Extended Basic. Line 70 uses 
EXEC 44539, which is a shortened 
way of saying, (70 X$=INKEY$: IF 
X$="" then 70). Lines 90-140 ask 
for the letter that is within 
the range of your NORMAL LENS. 
Lines 160-200 then ask for the 
distance away of the main thing 
you focused on, and then lines 
210-280 look at the variables 
that were entered in lines 140 
and 200 and go to the proper 
lines for the correct chart 
printout. 

Between each chart printout is 
a GOTO 830 statement which asks 
for a yes or no (y or n) INPUT, 
which holds the chart on the 
screen until the INPUT is made. 

The PRINT command is used in the 
program 135 times, which means 
675 key strokes. A great short- 
cut is to use the question 
mark which is the same as 
PRINT in basic programing, and 
This will save 540 key strokes. 



Once you 


have 


entered 


the 


program. 


just 


answer 


the 


questions 


and 


enjoy 


your 


photography 


just 


a little 


bit 



more. 

Your CoCo/Photographic friend, 
Paul D. Kirkpatrick 

PS: Copies of my "B/W Developer" 
program are available for $13.00 
(personal checks must clear 
prior to shipment) from: 
Paul D. Kirkpatrick 
5603 Linwood Court 
Seabrook, MD 20706 




1 'DEPTH OF FIELD, ICCC, INC. 

2 'BY PAUL D. KIRKPATRICK 

3 '5603 LINWOOD COURT 

4 'SEABROOK, MD 20706 

5 'COPYRIGHT (C) 1983 
10 CLEAR : CLS3 

20 PRINT373," PHOTOGRAPHIC"; 

30 PRINT31 36, "DEPTH OF FIELD"; 

40 PRINT3203, "COMPUTER"; 

50 PRINT3260,"BY PAUL D. KIRKPATR 
ICK"; 

60 PRINT3357, "PRESS A KEY TO BEGI 
N"; 

70 EXEC44539 
80 CLS 

90 PRINT367, "ENTER LETTER THAT MA 
TCHES"; 

100 PRINT397,"Y0UR NORMAL LENS F0 
CAL LENGTH"; 

110 PRINT31 69," (A) 35-41 MM"; 

120 PRINT3233," (B) 44-55 MM"; 

130 PRINT 
140 INPUT A$ 

150 CLS 

160 PRINT372, "ENTER DISTANCE"; 

170 PRINT31 02, "OF MAIN FOCAL P0IN 
T"; 

180 PRINT31 36, "5, 10, 25 FEET"; 
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190 PRINT 
200 INPUT 8$ 



210 


IF 


II 


AND 


CD 

II 


5" 


THEN 


290 


220 


IF 


> 

& 

ii 

CD 


AND 


II 

CD 


5" 


THEN 


380 


230 


IF 


A$="A" 


AND 


B$ = " 


10" 


THEN 


48 


0 

240 


IF 


A$="B" 


AND 


CD 

II 


10" 


THEN 


56 


0 

250 


IF 


A$=" A" 


AND 


B$ = " 


25" 


THEN 


66 


0 

260 


IF 


A$="B" 


AND 


CD 

& 

II 


25" 


THEN 


74 


0 

270 


IF 


A$<>" A 


" OR 


A$<> 


"B" 


THEN 


90 


280 


IF 


B$<>"5 


" OR 


B$<> 


"10 


" OR 


B$< 



>"25" THEN 160 
290 CLS 

300 PRINT3l,"F FOCAL POINT 
AREA IN"; 

310 PRINTa32,"ST0P IN FEET 
FOCUS" ■ 

320 PRINT364,"F2":PRINT374,"5'":P 
RINT382,"4.5Q TO 5.75'" 

330 PRINT396,"F2.8":PRINT3106,"5' 
":PRINTal14,"4.25 TO 6.00'" 

340 PRINTa128,"F4":PRINTa138,"5"' 
:PRINTa146,"4.00 TO 6.75' 

350 PRINTal60,"F5.6":PRINTa170,"5 
'":PRINT3l78,"3.75 TO 7.75'" 

360 PRINT3192,"F8":PRINT3202,"5"' 
:PRINTa210,"3.50 TO 10.00'" 

370 GOTO 830 

380 CLS : PRINT31 ,"F FOCAL POINT 

AREA IN" 

390 PRINTa32,"ST0P IN FEET 

FOCUS" 

400 PRINTa64 / "F2" : PR INT374, " 5 : P 
RINTa82,"4.85 TO 5.25'" 

410 PRINTa96,"F2.8":PRINTa106,"5 ' 
":PRINTa1 14, "4. 75 TO 5.50'" 

420 PRINT3l28,"F4":PRINTal38,"5' " 
:PRINTa146,"4.50 TO 5.75'" 

430 PRINT3l60,"F5.6":PRINTa170,"5 
"':PRINTa178,"4.25 TO 6.00'" 

440 PRINT3l92,"F8":PRINT3202,"5' " 
:PRINTa210 / "4.00 TO 7.00'" 

450 PRINT3224,"F1 1 " : PR INT3234, "5 ' 
":PRINTa242,"3.75 TO 8.00'" 

460 PRINT3256,"F16":PRINT3266,"5 • 
":PRINT3274,"3.50 TO 10.00'" 

470 GOTO 830 

480 CLS : PRINT31 , " F FOCAL POINT 

AREA IN" 

490 PRINTa32,"ST0P IN FEET 
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FOCUS" 

500 PRINT364,"F2":PRINTa74,"10'": 
PRINTa82,"8. 00 TO 13.00' 

510 PRINT396,"F2.8":PRINTa106,"10 
'":PRINT3114,"7.50 TO 15.00'" 

520 PRINT31 2 8,"F4" : PRINT31 38,"1 O' 
":PRINTa146,"6.75 TO 19.00'" 

530 PRINTal 60,"F5.6": PRINT31 70,"1 
0'":PRINT3178,"6.00 TO 30.00'" 

540 PRINTal92 / "F8":PRINTa202 / "10' 
" : PR INT3 2 1 0, " 5 . 00 TO INF." 

550 G0T0830 

560 CLS:PRINT31 ,"F FOCAL POINT 

AREA IN" 

570 PRINT332,"ST0P IN FEET 

FOCUS" 

580 PRINTa64,"F2": PRINT373, "1 0 ' " : 
PR I NT382, "9 . 00 TO 11.00'" 

590 PRINTa96,"F2.8":PRINTal05 / "10 
'":PRINTa114,"8.50 TO 12.00'" 

600 PRINT3l28,"F4":PRINT3l37 / "10' 
":PRINTa146,"8.00 TO 13.00'" 

610 PRINTa160,"F5.6”:PRINTa169,"1 
O'" :PRINTal78 / "7.50 TO 15.00'" 

620 PRINTal92,"F8":PRINT3201,"10' 
":PRINTa210,"6.75 TO 19.00"' 

630 PRINT3224,"F1 1 " : PR INT3233, "1 0 
" , :PRINT3242 / "6.00 TO 30.00'" 

640 PRINTa256,"F16":PRINTa265,"10 
:PRINT3274,"5.00 TO INF." 

650 G0T0830 

660 CLS:PRINTa1,"F FOCAL POINT 

AREA IN" 

670 PRINT332,"ST0P IN FEET 

FOCUS" 

680 PRINTa64 / "F2":PRINTa73,"25 ' 
PRINT381 ,"1 5.00 TO 55.00'" 

690 PRINT396,"F2.8":PRINTal05,"25 
"*:PRINT3113,"13.50 TO 75.00"' 

700 PRINT31 28, "F4": PRINT31 37, "25 ' 
":PRINTa145,"11 .50 TO INF." 

71 0 PRINT31 60,"F5.6":PRINTal 69, "2 
5"':PRINTa177," 9.50 TO INF." 

720 PRINT3192,"F8":PRINT3201,"25 ' 
" : PR I NT3209, " 7.50 TO INF." 

730 GOT0830 

740 CLS : PRINT31 ,"F FOCAL POINT 

AREA IN" 

750 PRINT332,"ST0P IN FEET 

FOCUS" 

760 PRINT364,"F2":PRINTa73,"25"': 
PRINT381,"19.00 TO 37.50"' 

770 PRINTa96,"F2.8": PRINT31 05,"25 
' " : PRINT31 1 3, "1 8. 00 TO 45.00"' 

780 PRINT31 28,"F4":PRINTal37,"25 ' 
":PRINTal45,"15.00 TO 52.00'" 



Color Computer 
Clubs & BBS’S 



790 PRINT3l60,"F5.6":PRINTa169,"2 
5'":PRINTa177,"13.00 TO 75.00"' 
800 PRINT3l92,"F8":PRINTa201,"25 r 
":PRINTa209,"11 .00 TO INF." 

810 PRINT€)224,"Fl1":PRINTa233,"25 
1 " :PRINTa241," 9.00 TO INF." 

820 PRINTa256,"F16":PRINT3265,"25 
:PRINTa273," 7.50 TO INF." 

830 PRINT341 8, "MORE (Y OR N)" 

840 INPUT Z$ 

850 IF Z$="Y" THEN 80 ELSE END 

MEMORY BEFORE RUNNING 24871 
MEMORY AFTER RUNNING 21659 

7 .... 



Clubs 



This is going to be a regular listing 
from now on. We will be listing all 
BBS numbers in every issue, but we 
will only list Color Computer Clubs 
one time. Note: the listing of any 

BBS or Club not affiliated with the 
ICCC, Inc. does not necessarily mean 
that the ICCC, Inc. supports them. 
It just means that they are a local 
club or BBS for a particular area 
that our members may have not known 
existed . 



Michigan Color Computer Club, 310 S. Jefferson St., Sturgis, MI 49091 

(616) 651-4248. Person to contact is Clay Howe, Secretary /Treasurer. 

The Rochester S-80 Computer Club, Inc., P0 Box 15476, Rochester, NY 14615 
(315) 223-3380. Person to contact is Tom Szlucha, CoCo Coordinator. 



Micro 80 Computer Club of Ottawa, 178 Monterey Drive, Nepean, ON K2H-7A8 
(613) 820-2170. Person to contact is Brian Russell, Secretary /Treasurer . 



Silicon Valley Color Computer Club, P.0. Box 61593, Sunnyvale, CA 94088 
(408) 749-1947. Person to contact is Shawn Jipp, President. 



Mocam CoCo Swap Club, Post Office Box 576, Shepherd, Texas 77371 
Person to contact is Cal Smith, Organizer. 



Florida Color Computer Club, 4047 Bee Ridge Road, Sarasota, FL 33582 
(813) 921-7510. Person to contact is FAMILY COMPUTERS, Ernie Bontrager. 



Color Computer Users Club, Fort Walton Beach, Florida 
(904) 244-5281. Person to contact is Bill Lamb. 

Color Computer Owners Group, 9020 Hemingway, Redford, Michigan 48239 
Person to contact is Dallas Cox, Newsletter Editor. (313) 937-3442 

Livingston Computer Club, Livingston, N.J. 

(201) 994-9051. Person to contact is Ben Grossman, President. 

Arkansas Computer Club, P.0; Box 7668, Little Rock, AR 72217 
(501) 663-2061. Person to contact is Gary Smith. 

Ohio Computer Club, 2153 Leah Lane, Reynoldsburg, OH 43068 
(614) 861-0565. Person to contact is Susan Davis. 



BBS's 

COLORADO COLOR BBS 
FLORIDA C0L0R-80 BBS 



(303) 249-7866 
(813) 924-C0C0 



24 hrs. 7 days up/download 
24 hrs. up/down'.oad 
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MINER by LARRY LANDWEHR 

Like his father before him, Sid is a coal 
miner. Working hundreds of feet below 
ground it is Sid's job to blast the rock 
so that the coal seam is exposed. See if 
you can direct Sid to the most productive 
areas. How many lumps of coal can you 
collect before you run out of dynamite? 
Young and old alike will enjoy this hi-res 
all machine language game from the author 
of "IN ASSEMBLY LANGUAGE". 



CAT// DM018 16k $14.95 (CAN) $12.95 (US) 




EXECCART BY PETER KARWOWSKI 

EXECCART is a M/L program that allows you 
to copy ROMPAC programs to tape. They can 
then be loaded back into a 64K CoCo and 
examined or modified. You can run most of 
your ROMPAC 's from disk without ever 
having to remove the disk controller. This 
saves tremendous wear and tear on the 
contacts. EXECCART may also be used to add 
a loader to your own programs to turn on 
64K and to copy your BASIC ROMs into RAM 
so that you can make modifications. 

.CAT# DM009 64K $17.95 (CAN) $14.95 (US) 



THE SPOOLER BY PETER KARWOWSKI 



Whenever you use your printer, your 
computer is totally dedicated to feeding 
it. This isn't such a problem when you 
just want to print out a couple of lines, 
but LLISTing a long program can be very 
boring. If you have better things to do 
than sit around waiting for the printer, 
then "THE SPOOLER" is just what you need. 
THE SPOOLER will work on ANY TRS-80 Color 
Computer from a 16K right up to 64K with 
disks. Extended BASIC is N0T x required. 

CAT# DM010 16K $12.95 (CAN) $10.95 (US) 



NEWERR0R BY PETER KARWOWSKI 

NEWERR0R will provide four extra functions 
and abilities for your Color Computer. 

1. Give you an audible error warning. 

2. Provide full english error messages. 

3. Add the ON ERROR GOTO command to BASIC 

4. Allow simulated errors for debugging. 

As an added bonus we include a second M/L 
program that you can add to your own BASIC 
programs to provide them with the ON ERROR 
GOTO feature. You may use this program 
even in programs you sell. 

CAT# DM008 16K $19.95 (CAN) $16.95 (US) . 



SCREEN by JOHN MIRAK 

Four much needed features are added to 
Basic with this new machine language 
utility program from Australia. 

1. Automatic line numbering 

2. Line by line program listing 

3. Motor on/off from the keyboard. 

4. Your choice of light or dark, orange, 
green or black screen with light or 
dark orange or green characters. 

Works with Basic, Ext Basic & Disk Basic 

CAT# DM015 16K $12.95 (CAN) $10.95 (US) 



AOjo 3% SHIPPING & HANDLING 
PER ORDER-MINIMUM $2.50 







420 FERGUSON AVE. N. 
HAMILTON. ONTARIO 
CANADA L8L4Y9 
PHONE 416-529-1319 

DEALER 



lltMHill 



WELCOME 



BONES BY MARK MORAN 

This original dice game is fun for the 
whole family. Play by yourself, against 
the computer or with your friends. 

Although simple enough for the youngest 
player the adults will find it addictive. 

CAT# DM011 16K $12.95 (CAN) $10.95 (US) 

Now you can 'Roll Them Bones' on the MC10. 
We have transferred this popular game 
without losing any of it's features. 

CAT# DM101 4 K $12.95 (CAN) $10.95 (US) 



SWISS ARMY KNIFE BY RALPH BLOCH 

One of our most prolific authors (PRETTY 
PR INTER-P.U.F.F. -LIBRARY) has come up with 
another winner. As the namesake of this 
program has many blades so SAK has many 
functions. The disk owner will find it 
indispensable for diagnosing and fixing 
the many gremlins that attack a disk 
system. It will work on any number of 
tracks and can even read FLEX disks. By 
copying one sector at a time you can often 
save an otherwise uncopyable disk. 

lCAT# DM553 32K $29.95 (CAN) $25.50 (US) 



MUSIC EDITOR BY PATRICIA SHELTON 

This program will take regular sheet music 
and convert it to "play by number" music. 
You enter the words, notes and chords from 
the keyboard and the program will output, 
to the screen or printer, an easy to read 
version for C or G type organs. Your files 
can be edited and saved to disk or tape. 
Easily produce a songbook of your own 
favorite tunes. 

CAT# DM012 16K $12.95 (CAN) $10.95 (US) 



SUPER EDIT BY LARRY LANDWEHR 

This powerful new utility program from the 
author of "IN ASSEMBLY LANGUAGE" adds many 
new editing commands to Basic. You can 
PRINT one screenful at a time, DELETE a 
line or lines, JOIN several lines together 
and hide your programs, or FIND strings 
and variables. Also included are commands 
to INSERT, COPY, MOVE & REPLACE one line 
or a block of lines. Super edit works with 
Extended Basic but Extended Basic is not 
required. 

.CAT# DM016 16k $19.95 (CAN) $16.95 (US) 



SEND $3 FOR OUR NEW 
80+ PAGE CATALOGUE 



HOME INVENTORY BY JEFF PYNE 

Home Inventory was written for the average 
home owner to simplify the tedious task of 
weeding through his posessions. This small 
database will save an organised list of 
brand names, serial numbers, values, dates 
of purchase etc. This could prove to be 
your most valuable program if you ever 
have to deal with an insurance company so 
be sure you have a copy of the programs 
output in a save place in case of fire or 
theft. Ext Basic required-Printer optional 

CAT# DMU13 16K $12.95 (CAN) $10.95 (US) 
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INSTALL JUMPER WIRE 



f MEM <ENTER> = 8487 w/I 6K Ext. Basic 



7 MEM <ENTER> =24 871 w/64K Ext. Basic 
POKE 25,6-NEW <ENTEfC>= 31015 
CLEAR 0<ENTER> =31215 



drawing not 
TO SCALE 



'8” MEMORY CHIPS 



notch \UI4 UI5 UI6 U 17 UI8 UI9 U20 U2I 



NOTE: 



MEMORY CHIPS ARE CMOS A STATIC 
CHARGE WILL DESTROY THEM 

GROUND YOUR BODY / 
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J- Spring Clips — ‘ L _ j 

(Grounding) ~ 

KEY BOARD 



COCO II UPGRADE GUIDELINES 

1. ) Remove the (6) screws from the bottom of the COCO including the 

one under the warranty label. 

2. ) Remove the keyboard, (be careful when disconnecting the ribbon 

contact from the board connector) i 

3. ) Remove the (8) memory chips (16K) from sockets U14 through 

U21 . 

4. ) Install a jumper wire between the two solder pads to the right 

of Wl, Find W1 diagonally between U6 and U7 (See Above) . 

5. ) Install eight (64K) memory chips in sockets U14 through U21, 

(Remember to put a grounded "Drain Wire" on your hand to 
avoid static discharge) ! 

6. ) Replace keyboard hnd carefully reconnect ribbon contact, 

replace (6) screws run proof check. 
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"CONGRATULATIONS" 



You Did It! 




Continued from Page 41 

2210 GOSUB 2630 : GOSUB 2740 
2220 PRINT "TO SHOW THE DIFFERENT 
SCALES WE ARE GOING TO INTRODU 
CE A VARIABLE INTO THE DRAW C 

OMMAND . " 

2230 PRINT "10 PMO D E4, 1 : PC LS : S C RE E 
N1,1 20 FOR N=1 TO 10":PRINT 

"30 K$=";CHR$(34);"BM1 28,1 50;S";C 
HR$(34);"+STR$(N)+";CHR$(34);"E25 
;H25;G25; F25"; CHR$ (34) 

2240 PRINT"40 DRAW K$ : NE XT N" 

2250 PRINT: PRINT"HIT A KEY TO SEE 
IT." 

2260 GOSUB 2 640 : PMO D E4 , 1 : P C LS : S C R 
EEN1,1 

2270 FOR N= 1 TO 1 0 : K$=" BM1 2 8, 1 5 0; 
S"+STR$(N)+";E25H25G25F25" 

2280 DRAW K$:A$="N="+STR$(N) :GOSU 
B 2750 
2290 NEXT N 

2300 GOSUB 2640 : GOSUB 2740 
2310 PR I NT" AT CERTAIN TIMES THE 4 
5 DEGREE ANGLE AVAILABLE WITH E , 
H,G 8 F ARE TOO MUCH, LIKE WHEN 
DRAWING AN N ON THE SCREEN. YOU C 
OULD DRAW IT BY : " 

2320 PRINT "DRAW"; CHRSC34) ;"BM1 28, 
96;S4;U20;F20;U20";CHR$(34) 

2330 PRINT : P R I N T " B U T IT LOOKS FUN 
NY, LIKE THIS.":FOR D L Y = 1 TO 1500 
: NE XT DLY 

2340 PMO DE 4,1 :PCLS:SCREEN1,1:DRAW 
"BM1 28,96;U20F20U20" 

2350 A$=" IT SHOULD" : GOSUB 2750 
2360 A$="LOOK LIKE":GOSUB 2750 
2370 FOR DLY=1 TO 500:NEXT DLY:PC 
LS 

2380 DRAW "BM1 28,96; U20;M+10, +20; U 
20 " 

2390 A$="LIKE THIS":GOSUB 2750 
2400 GOSUB 2640 : GOSUB 2740 
2410 PR INT"WE DID IT THIS WAY." 
2420 PRINT: PR I NT" DRAW"; CHR$( 34);" 
BM128,96;U20;M+10,+20;U20" 

2430 PRINT: PRINT"THIS IS CALLED A 
RELATIVE MOVE. <M>OVE +10 POINTS 
(HORIZONTAL) , +20 POINTS (VERT 
ICAL). THIS ALLOWS DRAWING 

TO SPACES WHERE WE COULDN'T WI 

TH THE" 

2440 PRINT" 45 DEGREE COMMANDS." 
2450 GOSUB 2630:G0SUB 2740 
2460 PRINT"WHAT COLOR DO YOU WANT 
?": PRINT" WITH THE DRAW COMMAND YO 
U CAN SPECIFY A COLOR. IF YOU W 



ANT A BLUE ON SCREEN1,0 THEN ADD 
A C 3 TO YOUR DRAW STATEMENT." 
2470 PRINT :PRINT"WANT TO ROTATE Y 
OUR GRAPHICS? SPECIFY AN ANGLE. 
A0=N0 ROTATIONA1=90 DEG. A2=180 
DEG. AND A3 = 2 70 DEG." 

2480 PRINT :PRINT" LET'S DRAW SOMET 
HING." 

2490 GOSUB 2630:G0SUB 2740 
2500 PRINT "10 DRAW";CHR$(34);"BM1 
28,1 00;BR2NH2R8E2U4H2NL4E2U4H2L8G 
2BD1 4BR1 6"; CHR$ (34) 

2510 PM0DE4,1 :PCLS:SCREEN1,1 
2520 FOR U=0 TO 3 

2530 K$="A"+STR$(U) : DR AW"BM1 28,96 
; S8" : DRAW K$ 

2540 GOSUB 3020 

2550 FOR DLY=1 TO 300:NEXT DLY:PC 
LS-.NEXT U 

2560 DRAW"AO":A$="HIT A KEY":GOSU 
B 2750 : GOSUB 2640 
2570 GOSUB 2740 

2580 PR INT"MORE OPTIONS?? YES!" 
2590 PR I NT" N MEANING NO UPDATE. T 
HIS LETS YOU DRAW A LINE WITHOUT 
MOVING THE DRAW POSITION. EG: I 

F YOU HAD A U25, THE COMPUTER W 

OULD DRAW A LINE 25 POINTS LONG 

AND WOULD MOVE THE DRAW POSITIO 
N " 

2600 PRINT "UP BY 25 POINTS, SO YO 
UR NEXT LINE WOULD START WHERE 
THAT ONE STOPED. BUT IF YOU DON'T 
WANT TO MOVE THE DRAW POSITION 
, YOU JUST ADD AN N TO THE U25, 
LIKE DRAW"; CHR$ (34) ;"NU25"; CHR$( 
34); 

2610 GOSUB 2630 
2620 RUN"EXT2" 

2630 PRINT : PRINT"HIT ANY KEY TO C 
ONTINUE"; 

2640 A$=INKEY$: IF A$="" THEN 2640 
2650 RETURN 

2660 CLS: PRINT" *** BASIC COMMAND 
READ ***": PRINT : RETURN 
2670 CLS: PRINT" *** EXTENDED OPER 
ATOR ATN ***": PRINT : RETURN 
2680 CLS:PRINT" ** EXTENDED COMMA 
ND CIRCLE **":PRINT :RETURN 
2690 CLS: PRINT" ** EXTENDED COMMA 
ND COLOR **": PRINT : RETURN 
2700 CLS: PRINT" ** EXTENDED OPERA 
TOR COS **": PRINT : RETURN 
2710 CLS: PRINT" ** EXTENDED COMMA 
ND DEF **":PRINT :RETURN 
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2720 CLSrPRINT" ** EXTENDED COMMA 

ND DEL **":PRINT :RETURN 

2730 CLSrPRINT" ** EXTENDED COMMA 

ND DLOAD **": PRINT : RETURN 

2740 CLSrPRINT" ** EXTENDED COMMA 

ND DRAW **"rPRINT rRETURN 

2750 L=LEN(A$) :Ll=110-((L/2)*12)r 

LINE <L1 — 1 2,1 65) — CL1 + (1 6*L)+1 2,1 88 

) , PRESET, BF 

2760 XL$=STR$(L1 ) rDRAW"S4;BM"+XL$ 
+",185;" 

2770 FOR X= 1 TO L r M=ASC (MID$ (A$,X 

, 1 >> 

2780 M=M-31 : I F M>38 THEN M=M-38rG 
OTO 2810 

2790 ON M GOSUB 2830,2840,2850,28 
60,2870,2880,2890,2 900,291 0,2920, 
2930,2940,2950,2960,2970,2980,299 
0,3000,3010,3020,3030,3040,3050,3 
060,3070,3080,3090,3100,3110,3120 
,31 30, 3140, 31 50, 31 60, 31 70, 3180, 31 
90,3200 

2800 GOTO 2820 

2810 ON M GOSUB 3210,3220,3230,32 

40,3250,3260,3270,3280,3290,3300, 

3310,3320,3330,3340,3350,3360,337 

0,3380,3390,3400,3410,3420,3430,3 

440,3450 

2820 NEXT X 

2830 DRAW"BR8"rRETURNr 'SPACE 
2840 DRAW"BR5R2U2L2D2R2U15BR10BD1 
5" r RETURN r ' ! 

2850 DRAW"BR4BU1 2U4BR4D4BD1 2BR8" r 
RETURN r ' " 

2860 DRAWBR4U5NL4NR8U6NU5NL4R4NR 
4NU5D11BR8" rRETURNr '# 

2870 DRAWBR2NH2R8E2U4H2L8H2U4E2R 
8F2BL8NU2D14BR4NU1 6BR6" r RETURN r ' $ 

2880 DRAW"E12BL12D1R1U1L1BF12L1U1 
R1D1BR4" rRETURN: '% 

2890 DRAW"BR12H12U2E2R6F2D2G10D2F 
2R8NE3BR6" rRETURNr '& 

2900 DRAW"BR6BU12U4BR10BDl6"rRETU 
RN: ' ' 

291 0 DRAW"BR12H5U6E5BD16BR4":RETU 
RN: ' ( 

2920 DRAW"E5U6H5BR16BD1 6" rRETURN: 
' ) 

2930 DRAWBU8BR6NL6NH6NU6NE6NR6NF 
6ND6NG6BR10BD8" rRETURN:'* 

2940 DRAWBR6BU8NU5NL5NR5D5BD3BR1 
0" rRETURN: '+ 

2950 DRAW"BR4R2U2L2D2BR2NG2BR10'' : 
RETURN: ’ , 

2960 DR AW"BR3BU8R6BR7BD8" rRETURN: 
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2970 DRAW"BR3U2R2D2L2BR1 2" rRETURN 

. i 

• B 

2980 DRAWU2E1 2U2BR4BD16" : RETURN: 

' / 

2990 DRAWBR2H2U1 2E2R8F2D1 2G2NL8B 
R6" rRETURN: '0 

3000 DRAWBR2R4NR4U1 6L2G2BD14BR14 
"rRETURN: '1 

3010 DRAW"BR2NR10U2E10U2H2L8G2BR1 
6BD14" rRETURN: '2 

3020 DRAWBR2NH2R8E2U4H2NL4E2U4H2 
L8G2BD14BR16" rRETURN: '3 
3030 DRAW"BR8U1 6G8R1 2BD8BR4" : RETU 
RN: '4 

3040 DRAW"BU2F2R8E2U4H2L1 0U8R1 2BD 
16BR4" rRETURN: '5 

3050 DRAWBU2NU6F2R8E2U4H2L8U5E3R 
6F3BD13BR4" rRETURN: '6 
3060 DRAWBU1 6R1 2D4G1 2BR1 6": RETUR 
N: '7 

3070 DRAW"BU2NU4F2R8E2U4H2L8NG2H2 
U4E2R8F2D4NG2BD10BR4" rRETURN: '8 
3080 DRAW"BU3F3R6E3U10H3L6G3D3F3R 
9BR4BD7" rRETURN: '9 
3090 DRAWBR7BU3R2U2L2D2BU7R2U2L2 
D2BD10BR9" rRETURN: ' : 

3100 DRAWBR5BU3U2R2D2NG3L2BU8U2R 
2D2L2BD11BR11 "rRETURN:'; 

3110 DRAWBR1 2BU2H6E6BD1 4BR4" : RET 
URN: '< 

3120 DRAW"BU6NR10BU5R10BD11BR4":R 
ETURN: ' = 

3130 DRAW"BU2E6H6BD14BR1 6": RETURN 
: ' > 

3140 DRAWBR5R2U2L2D2R1BU5U3E3U3H 
2L6G3BD13BR1 6" rRETURN:'? 

3150 DRAWBU2NU4F2R8E2U6L8G2E2R8U 
6H2L8G2BD14BR1 6" rRETURN: 'a 
3160 DRAW'UIONRI 2E6F6D10BR4": RETU 
RN: ' A 

3170 DRAWNU16R1 0E2U4H2NL1 0E2U4H2 
L10BD16BR16" rRETURN: 'B 
3180 DRAWBU3BR1 2G3L6H3U1 0E3R6F3B 
D 1 3BR4" -.RETURN: ' C 

31 90 DRAWU16R9F3D10G3L9BR1 6": RET 
URN: ' D 

3200 DRAWNR1 2U8NR8U8R1 2BD16BR4" : 
RETURN: 'E 

3210 DRAW"U8NR8U8R12BD16BR4" rRETU 
RN: ' F 

3220 DRAWBU5BR8R4D2G3L6H3U10E3R6 
F3D1BD12BR4" rRETURN: 'G 
3230 DRAW"U8NU8R1 0NU8D8BR6" : RETUR 
N: 'H 

3240 DRAW" BR2R4NR4U16NL4R4BR6BD16 



RETURN : ' I 

3250 0RAW"BU3F3R3E3U13NL9R3BD16BR 
4 " : R E T IJ R N : 1 J 

32 60 DRAW"U8NU8E2NF1 0E6BD1 6BR4" :R 
ETURN : ' K 

3270 DRAW"NU16R123R4": RETURN: 'L 
3280 DRAW'UI 6F6E6D1 6BR4" :RETURN:' 
M 

3290 DRAW"U16D2F12NU14D2BR4" :RETU 
RN: ' N 

3300 DRAW"BU2NF2U12E2R8F2D12G2NL8 
BR6" : RETURN: '0 

3310 DRAW”U16R8F2D4G2L8BD8BR16":R 
ETURN: ' P 

3320 DRAW"BU3NF3U10E3R6F3D10G3NL6 
E1NH2NF3BD1BR6":RETURN:'Q 
3330 DRAW"U16R8F2D4G2L8R2F88R8":R 
ETURN: ' R 

3 340 DRAWBU3F3R7E2U4H2L8H2U4E2R8 
F2BD14BR4": RETURN: ' S 
3350 DRAW"BR8U16NL6R6BR4BD16":RET 
URN: 'T 

3360 DRAW"BU3NU13F3R6E3NU13BD3BR4 
": RETURN : 'U 

3370 DRAW "BUI 6D1 0F6E6U1 08R4BD1 6" : 
RETURN: ' V 

3380 DRAW"NU16E6F6NU16BR4" : RETURN 
: 'W 

3390 DRAW"U2E12U2BL12D2F12D2BR4" : 
RETURN: ' X 

3400 DRAW"BR6U10NH6E6BD163R4" :RET 
URN: ' Y 

3410 DRAWNR1 2U2E1 2U2L1 2BR163D16" 
: RETURN : 'Z 

34 20 DR AWNR6U1 6R6BR6BD 16": RETURN 
: ' C 

3430 DRAW "BUI 6D2F1 2D 2BR4" : RETURN: 

'> 

3440 DRAW" BUI 6BR2R6D1 6L68R1 4" : RET 
URN:'] 

3450 DRAW"BR6U1 6NG6F6BD10BR4" : RET 
URN : ' 

AFTER RUNNING MEMORY = 3823 
MEMORY REQUIRED = 19000 




10 GOSUB 5100 

20 PRINT "EDIT (I LOVE THIS ONE!)" 
: PRINT"I F YOU HAVE WORKED WITHOUT 
THE EXTENDED BASIC YOU KNOW THA 



T IF YOU MADE A MISTAKE, FORGOT A 
COLON OR SOMETHING YOU HAD TO 
RETYPE THE ENTIRE LINE." 

30 PRINT "THIS WAS IRATATING IF YO 
U HAD A LONG LINE AND HAD ONLY 
ONE LITTLE MISTAKE." 

40 PRINT "THERE ARE SEVERAL COMMAN 
DS WITH EDIT, LET'S TAKE THEM 1 A 

T A TIME." 

50 GOSUB 5000:G0SUB 5100 
60 PRINT "IF YOU HAVE A MISTAKE ON 
LINE 50, ALL YOU HAVE TO DO TO 
GET INTO THE EDIT MODE IS TO T 
YPE: EDIT 50." 

70 PRINT "THIS WILL LIST LINE 50 A 
ND PUT A CURSOR ON THE SCREEN ON 
THE LINE." 

80 PRINT "THE FIRST OPTION IS:":PR 
INT"S (FOR SEARCH) THIS LET'S YOU 
SAVE WEAR AND TEAR ON THE SPAC 
E BAR. LET'S LOOK AT IT." 

90 GOSUB 5000 : GOSUB 5100 
100 PRINT" 50 FOR X=1 TO 1000 STEP 
4; NEXTX" 

110 PRINT "WE HAVE AN ERROR IN LIN 
E 50, THERE IS A SIMICOLON AFT 
ER THE 4 WHEN THERE IS SUPPOSED 
TO BE A COLON. SO WE TYPE:" 

120 PRINT :PRINT"EDIT 50" 

130 PRINT" 50 FOR X=1 TO 1000 STEP 
4;NEXTX" 

140 PRINT "WE COULD NOW GO DIRECTL 
Y TO THE SIMICOLON BY TYPING S;" 
150 PRINT"THE COMPUTER WOULD POSI 
TION THE CURSOR OVER THE 
160 GOSUB 5000 : GOSUB 5100 
170 PRINT "THE <S>EARCH, SEARCHED 
OUT THE FIRST OCCUR AN CE OF ;, IF 
THERE HAD BEEN MORE THAN ONE ; 
AND YOU WANTED THE SECOND ONE, 
ALL YOU WOULD HAVE HAD TO DO IS 
TYPE 2S ; " 

180 PRINT "THIS WOULD HAVE TOLD TH 
E COMPUTER TO SEARCH FOR T 

HE SECOND OCCURANCE OF THE ; 

II 

190 PRINT :PRINT"WHAT DO WE DO WHE 
N WE GET TO THE ; ??" 

200 GOSUB 5000 : GOSUB 5100 
210 PRINT" WHEN WE HAVE POSITIONED 
THE CURSOR OVER THE OFFENDIN 

G CHARACTER, WE TYPE: D FOR 

DELETE (THIS REMOVES THE CHARACTE 
R) AND I FOR INSERT, THE WE TY 

PE THE CHARACTER WE WANT THERE. 

II 
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220 PR INT" I F WHAT YOU WANT IN THE 
LINE IS THE SAME LEN6TH AS WHAT 
YOU WANTTO TAKE OUT, THE TYPE C F 
OR CHANGE. YOU HAVE TO SPECIF 

Y THE NUMBER OF CHARACTERS YOU WA 
NT TO CHANGE. EG: 1C OR 4C." 

230 GOSUB 5000:G0SUB 5100 
240 PR INT" I F YOU USE THE C COMMAN 
D YOU DON'T NEED THE I COMMAND 
, YOU JUST INSERT WHAT YOU WANT 

II 

■ 

250 PRINT "YOU DON'T HAVE TO DELET 
E ANY- THING IN ORDER TO INSERT 
SOME- THING EITHER." 

260 PRINT" YOU CAN JUST GO TO THE 
PLACE YOUWANT TO INSERT SOMETHING 
AND TYPE I (FOR INSERT) AND T 
YPE WHAT YOU WANT." 

270 PRINT "TO GET OUT OF THE INSER 
T MODE, HOLD THE SHIFT KEY DOWN 
AND HIT THE UP ARROW."; 

280 GOSUB 5000 : GOSUB 5100 
290 PRINT "IF YOU ARE HALF THRU MA 
KING A LOT OF CHANGES AND WANT 
TO SEE WHAT YOU HAVE DONE SO FAR 
, JUST HIT THE L (LIST) KEY AND T 
HIS WILL RE-LIST THE LINE." 

300 PRINT "IF YOU DECIDE THAT THE 
LINE WAS ALRIGHT BEFORE YOU START 
ED AND YOU REALLY DIDN'T NEED TO 
EDIT IT, TYPE A (ABORT)." 

310 GOSUB 5000 : GOSUB 5100 
320 PR INT"H, THIS STANDS FOR HACK 
AND HACKS OFF THE LINE. YOU 

MAY WANT TO GET RID OF MOST 0 

F A LINE LIKE THIS:" 

330 PR INT "50 P R I NT" ; C H R$ ( 34 ) ; "TH I 
S IS A TEST TO SEE IF THIS IS A V 
I ABLE PROGRAM" ;CHR$ (34) 

340 PRINT: PRINT" YOU MAY WANT TO C 
HANGE THE LINE TO READ. THIS IS A 
TEST OF THE TRS-80 COLOR COMPUT 
ER." 

345 GOSUB 5000 : GOSUB 5100 
350 PRINT"TO DO SO, JUST PLACE TH 
E CURSOR OVER THE SPACE BETWEEN T 
HE WORD TEST AND TO AND HIT H. TH 
IS HACKS OFF THE REST OF THE 

LINE AND AUTOMATICALLY PUTS YOU 
IN THE INSERT MODE SO YOU CAN R 
E- ENTER WHAT YOU WANTED." 

360 PRINT :PRINT" SOUNDS EASY DOESN 
'T IT?" s 

370 GOSUB 5000 : GOSUB 5110 
380 PRINT "EXP IS SHORT FOR EXPON 
ENT." :PRINT" 

PAGE 66 



390 PR I NT" E XP RETURNS THE NATURAL 
EXPONENTIAL OF A NUMBER. 

II 

400 PR INT "THE NATURAL SYSTEM OF E 
XPONENTS USES THE BASE 2.71828183 
INSTEAD OF THE COMMON SYS 
TEMS BASE 10." 

410 PR INT"THIS IS THE INVERSE OF 
LOG: THEREFORE X =E XP ( LOG ( X ) ) " 

420 GOSUB 5000 : GOSUB 5120 
430 PRINT "DON'T WANT ALL THOSE DE 
CIMALS FROM A DIVIDE? USE THIS 
COMMAND TO FIX IT. EG: PRINT FIX(2 
.718) WILL PRINT A 2. IT SIMPLY 
CHOPS OFF ALL THE TRAILING DECIMA 
LS." 

440 PRINT "LIKE THE INT COMMAND, I 
T DOESN ' TROUND OFF NUMBERS, IT SI 
MPLY CUTS OFF THE DECIMALS." 

450 GOSUB 5000 : GOSUB 5130 
460 PR INT"GET AND PUT ALLOWS YOU 
TO GET SPECIFIC ARRAYS OFF THE 
GRAPHICSSCREEN AND PUT THEM BACK, 
EITKERIN THE SAME PLACE, OR ELSE 
WHERE ON THE GRAPHICS SCREEN. " 
470 PRINT "THERE ARE LOGICAL OPERA 
TORS THAT YOU CAN INCLUDE TO 

SET, RESET, INVERT, AND, OR ET 

C." 

480 PRINT :PRINT" DON'T KNOW WHAT W 
E ARE TALKING ABOUT? LET'S GO I 
NTO IT." 

490 GOSUB 5000 : GOSUB 5130 
500 PRINT"LET ' S EXAMINE THE SYNTA 
X. ": PR INT" GET (START)- (END), VARIAB 
LE, G START AND END ARE X/Y PO 

INTS ON THE GRAPHICS SCREEN, VARI 
ABLE IS THE VARIABLE YOU PUT TH 
E ARRAY INTO AND G TELLS THE 

II 

510 PRINT "COMPUTER TO STORE THE R 
ECTANGLESCONTENDS WITH FULL GRAPH 
IC DETAIL. (OPTIONAL)" 

520 PRINT : PRINT"THE VARIABLE HAS 
TO BE A PRE- DEFINED ARRAY." 

530 GOSUB 5000 : GOSUB 5130 

540 PR INT" A SAMPLE PROGRAM :": PRIN 

T " 1 0 DIM A(50,50)" 

550 PRINT "20 PM0DE4,1 : PCLS : SCREEN 
1,1 30 FOR X=1 TO 20 STEP 3" 

: PRINT"40 CIRCLE (1 28,96) ,X : NEXT X 
": PR INT" 50 GET ( 1 00, 75 ) - ( 1 50, 1 25 ) , 
A, G" : PR I NT" 60 PCLS : PUT (0,0) - (50, 5 
0),A,PSET" 

560 PRINT" 70 GOTO 70” 



570 GOSUB 5000 

580 PM0DE4,1 : PCLS : SCREEN1 ,1 

590 DIM A (50,1 0) 

600 FOR X=1 TO 20 STEP 3:CIRCLE(1 

28.96) ,X : NEXT 

610 GET(100,75)-(150,125),A,G 
620 PCLS:PUT(0,0)-(50,50),A,PSET 
630 GOSUB 5010 
640 GOSUB 5130 

650 PRINT" WE DON'T HAVE TO STOP T 
HERE THOUGH. JUST WATCH." 

660 GOSUB 5000 

670 PM0DE4,1 :PCLS:SCREEN1,1 

680 X=RND(100)+1QQ: Y=RND(50)+40 

690 PCLS:PUT(X,Y)-(X+50,Y+50),A,P 

SET 

700 K=K+1 : I F K=10 THEN 710 ELSE 6 
80 

710 GOSUB 5130 

720 PR I NT" WE CAN MOVE THE GRAPHIC 
S AROUND QUITE SPEEDILY CAN'T WE. 

II 

730 PRINT :PRINT"AS YOU MAY HAVE S 
EEN WITH OUR EXAMPLE, THE SYNTA 
X FOR PUT IS PUT (START)-(END),VA 
RIABLE,PSET BUT WE CAN USE PRESE 
T, AND, OR AND NOT INSTEAD OF TH 
E PSET." 

740 PRINT "LET'S SAY THAT YOU HAVE 
OTHER GRAPHICS ON THE SCREEN T 
HAT YOU DON'T WANT TO DISTURBS. Y 
OU CAN USE THE NOT COMMAND TO DO 
THIS." 

750 GOSUB 5000 : GOSUB 5130 
760 PRINT "100 FOR X=50 TO 100 STE 
P 5":PRINT"110 PUT ( X , 96 ) - ( X+ 5 0, 96 
) , A, NOT 120 PUT (X,96)-(X+50,96) 
, A , NOT 130 NEXT X" 

770 PRINT :PRINT"LETS TRY IT." 

780 GOSUB 5000 

781 PCLS: CIRCLE (1 28, 95), 20: PA I NT ( 

1 28. 96) , 5, 5 

782 GET (100,75)-(150,125),A,G 
790 PM0DE4,1 :PCLS:SCREEN1,1 

800 FOR X= 1 TO 80 STEP 5:CIRCLE(1 

28.96) , X : NEXT 

810 FOR X=50 TO 200 STEP 25:PUT(X 

,75)-(X+50,1 25), A, NOT 

820 FOR DLY=1 T050:NEXT DLY 

830 PUT (X,75)-(X+50,125),A,N0T 

840 NEXT X 

850 GOSUB 5010 

860 GOSUB 5130 

870 PR INT" AS YOU CAN SEE, THIS GI 
VES THE GRAPHICS A WALK BEHIND 0 
R WALK IN FRONT OF EFFECT." 



880 PRINT"WE CAN USE THE GET/PUT 
NOT FUNCTION TO INVERT THE E 

NTIRE SCREEN. (HINT: YOU DON'T 
HAVE TO DIM THE ARRAY FOR THE E 
NTIRE THING, YOU CAN Cf+EAT A LITT 
LE AND SAVE MEMORY.) 

890 PRINT "10 DIM A(255,5) 

900 PRINT"20 GET (0,0)— (255,191 ),A 
/ G 

910 PR I NT" 30 PUT (0,0) — (255,191 ),A 

, NOT 40 GOTO 40"; 

911 GOSUB 5000:SCREEN1 
930 RUN"EXT22" 

5000 PRINT :PRINT"HIT ANY KEY TO C 
ONTINUE"; 

5010 A$=INKEY$ : I F A$="" THEN 5010 
5020 RETURN 

5100 CLS:PRINT" ** EXTENDED COMMA 

ND EDIT **": PRINT : RETURN 

5110 CLS:PRINT" ** EXTENDED OPERA 

TOR EXP **":PRINT :RETURN 

5120 CLS:PRINT" ** EXTENDED OPERA 

TOR FIX **":PRINT :RETURN 

5130 CLS:PRINT" * EXTENDED COMMAN 

DS GET/PUT PRINT: RETURN 

5140 CLS: PRINT" ** EXTENDED COMMA 

ND HEX$ **":PRINT :RETURN 

5150 CLS : PRINT" ** EXTENDED FUNCT 

ION INSTR **"; PRINT : RETURN 

5160 CLS: PRINT" ** EXTENDED COMMA 

ND LET **" : PRINT : RETURN 

5170 CLS: PRINT" ** EXTENDED COMMA 

ND LINE **" : PRINT : RETURN 

5180 CLS:PRINT" ** EXTENDED FUNCT 

ION LOG **" :PRINT :RETURN 

5190 CLS: PRINT" ** EXTENDED COMMA 

ND PAINT **":PRINT :RETURN 

5200 CLS : PRINT" ** EXTENDED COMMA 

ND PCLS **": PRINT : RETURN 

6000 L = LEN(A$) : LI =1 1 0- ( ( L/ 2 ) * 1 2 ) : 

LINE(L1-12,165)-(L1+(16*L)+12,188 

), PRESET, BF 

6010 XL$=STR$(L1 ) : DRAW"S4;BM"+XL$ 
+",185;" 

6020 FOR X=1 TO L : M=AS C (M I D$ ( AS, X 

,1 ) ) 

6030 M=M-31 : I F M>38 THEN M=M-38:G 
OTO 6060 

6040 ON M GOSUB 6080,6090,6100,61 
10,61 20,61 30,6140,61 50,61 60,61 70, 
6180,6190,6200,6210,6220,6230,624 
0,6250,6260,6270,6280,6290,6300,6 
310,6320,6330,6340,6350,6360,6370 
,6380,6390,6400,6410,6420,6430,64 
40,6450 
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6050 GOTO 6070 

6060 ON M GOSUB 6460,6470,6480,64 

90,6500,6510,6520,6530,6540,6550, 

6560,6570,6580,6590,6600,6610,662 

0,6630,6640,6650,6660,6670,6680,6 

690,6700 

6070 NEXT X 

6080 DRAW"BR8" : RETURN: ' SPACE 
6090 DRAW"BR5R2U2L2D2R2U1 5BR10BD1 
5":RETURN: ' ! 

6100 DRAWBR4BU1 2U4BR4D4BD1 2BR8" : 
RETURN: 

6110 DRAW"BR4U5NL4NR8U6NU5NL4R4NR 
4NU5D11BR8":RETURN: '# 

6120 DRAW"BR2NH2R8E2U4H2L8H2U4E2R 
8F2BL8NU2D14BR4NU1 6BR6" : RETURN : ' $ 

6130 DRAW" E12BL12D1R1U1L1BF12L1U1 
R1D1BR4":RETURN: '% 

6140 DRAWBR12H12U2E2R6F2D2G10D2F 
2R8NE3BR6" : RETURN: '& 

6150 DRAW"BR6BU1 2U4BR1 OBDl 6" : RETU 
RN: ' ' 

6160 DRAWBR1 2H5U6E5BD1 6BR4" :RETU 
RN: ' ( 

6170 DRAW"E5U6H5BR16BD1 6": RETURN: 

' ) 

6180 DRAWBU8BR6NL6NH6NU6NE6NR6NF 
6ND6NG6BR10BD8": RETURN: '* 

61 90 DRAW"BR6BU8NU5NL5NR5D5BD3BR1 
0":RETURN: ' + 

6200 DRAW"BR4R2U2L2D2BR2NG2BR1 0" : 
RETURN: ' , 

6210 DRAW"BR3BU8R6BR7BD8": RETURN: 

i _ 

6220 DRAW"BR3U2R2D2L2BR1 2": RETURN 

. i 
• ■ 

6230 DRAW"U2E1 2U2BR4BD16" : RETURN: 

' / 

6240 DRAW" BR2H2U1 2E2R8F2D1 2G2NL8B 
R6" : RETURN: ' 0 

6250 DRAW"BR2R4NR4U16L2G2BD14BR14 
": RETURN : '1 

6260 DRAW"BR2NR10U2E10U2H2L8G28R1 
6BD1 4" : RETURN : '2 

6270 DRAW"BR2NH2R8E2U4H2NL4E2U4H2 
L8G2BD14BR 16": RETURN: '3 
6280 DRAWBR8U16G8R1 2BD8BR4" : RETU 
RN: '4 

6290 DRAW"BU2F2R8E2U4H2L10U8R1 2BD 
1 6BR4" : RETURN : '5 

6300 DRAW"BU2NU6F2R8E2U4H2L8U5E3R 
6F3BD1 3BR4" : RETURN: *6 
6310 DRAW"BU16R12D4G12BR16" :RETUR 
N : ' 7 

6320 DRAW"BU2NU4F2R8E2U4H2L8NG2H2 
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U4E2R8F2D4NG2BD10BR4": RETURN:' 8 
6330 DRAW"BU3F3R6E3U1 0H3L6G3D3F3R 
9BR4BD7": RETURN: '9 
6340 DRAW"BR7BU3R2U2L2D2BU7R2U2L2 
D2BD10BR9" : RETURN: ' : 

6350 DRAW"BR5BU3U2R2D2NG3L2BU8U2R 
2D2L2BD11BR11":RETURN: 

6360 DRAWBR1 28U2H6E6BD1 4BR4" : RET 
URN: ' < ! 

6370 DRAW"BU6NR10BU5R10BD1 1BR4":R 
ETURN : ' = 

6380 DRAW"BU2E6H6BD1 4BR1 6" : RETURN 
: ' > 

6390 DRAW"BR5R2U2L2D2R1BU5U3E3U3H 
2L6G3BD13BR16":RETURN: ' ? 

6400 DRAW"BU2NU4F2R8E2U6L8G2E2R8U 
6H2L8G2BD14BR16": RETURN: '3 
6410 DRAW"U10NR12E6F6D10BR4":RETU 
RN: ' A 

6420 DRAW'NUI 6R10E2U4H2NL10E2U4H2 
L10BD16BR16":RETURN: 'B 
6430 DRAW"BU3BR1 2G3L6H3U1 0E3R6F3B 
D13BR4":RETURN: 'C 

6440 DRAW"U16R9F3D10G3L98R16":RET 
URN: ' D 

6450 DRAW"NR1 2U8NR8U8R1 2BD1 6BR4" : 
RETURN: ' E 

6460 DRAWU8NR8U8R1 2BD16BR4": RETU 
RN: ' F 

6470 DRAWBU5BR8R4D2G3L6H3U10E3R6 
F3D1BD1 2BR4":RETURN: 'G 
6480 DRAW"U8NU8R10NU8D8BR6":RETUR 
N: ' H 

6490 DRAW"BR2R4NR4U1 6NL4R4BR6BD1 6 
": RETURN : ' I 

6500 DRAW"BU3F3R3E3U13NL9R3BD16BR 
4":RETURN: ' J 

6510 DRAW"U8NU8E2NF10E6BD16BR4" :R 
ETURN: 'K 

6520 DRAW"NU16R12BR4":RETURN: 'L 
6530 DRAW"U16F6E6D16BR4": RETURN: ' 
M 

6540 DRAW"U16D2F12NU14D2BR4":RETU 
RN: ' N 

6550 DRAW"BU2NF2U12E2R8F2D12G2NL8 
BR6":RETURN: '0 

6560 DRAW"U16R8F2D4G2L8BD8BR16" : R 
ETURN: ' P 

6570 DRAW"BU3NF3U10E3R6F3D10G3NL6 
E1NH2NF3BD1BR6" :RETURN:'Q 
6580 DRAW"U16R8F2D4G2L8R2F8BR8" : R 
ETURN: ' R 

6590 DRAW"BU3F3R7E2U4H2L8H2U4E2R8 
F2BD14BR4" : RETURN: ' S 
6600 DRAW"BR8U1 6NL6R6BR4BD1 6" : RET 
URN : * T 



6610 DRAW"BU3NU13F3R6E3NU13BD3BR4 
RETURN : 'U 

6620 DRAWBU1 6D10F6E6U1 0BR4B016" : 
RETURN: ' V 

6630 DRAW"NU16E6F6NU16BR4": RETURN 
: 'W 

6640 DRAWU2E1 2U2BL1 2D2F1 2D2BR4": 
RETURN: ' X 

6650 DRAW"BR6U10NH6E6BD163R4":RET 
URN : ' Y 

6660 DRAWNR12U2E12U2L12BR16BD16" 
: RETURN: ' Z 

6670 DRAW"NR6U1 6R6BR6BD1 6” : RETURN 
: ' l 

6680 DRAWBU16D2F12D2BR4": RETURN: 

’> 

6690 DRAW’BUI 63R 2 R 6 D 1 6L6B R 1 4" : RET 
URN: ' ] 

6700 DRAW"BR6U1 6NG6F6BD1 0BR4" : RET 
URN: ' 

AFTER RUNNING MEMORY = 10412 
MEMORY REQUIRED = 12411 




920 CLE AR : D IM A ( 2 5 5 , 5 ) : GET ( 0,0 ) - ( 
255, 191), A, G 

930 PUT C0,0) — (255,1 91 ) , A, NOT 
935 A$=" HOW'S THAT?":GOSUB 6000 
940 GOSUB 501 0 : GOSUB 5140 
950 PRINT"HEX$ (SHORT FOR HEXIDEC 
IMAL STRING) CONVERTS A DECIM 

AL NUMBER (BASE 10) INTO 

HEXIDECIMAL (BASE 16)." 

960 PRINT: PRINT"MANY PROGRAMERS, 
ESPECIALLY THOSE WHO ARE MACH 

INE LANGUAGE PROGRAMMER TYPES, L 
IKE TO USE THE HEXIDECIMAL SYST 
EM AS IT IS EASIER TO CONVERT TO 
BINARY." 

970 GOSUB 5000 : GOSUB 5150 
980 PRINT "REMEMBER BACK IN NON-EX 
TENDED WE HAD TO USE FOR/NEXT L 
OOPS WITH AN IF/THEN STATEMENT 

TO FIND THE / IN A DATE, SO W 
E COULD EXTRACT THE DAY WITH 

M I D $" 

990 PRINT" WITH THE INSTR COMMAND, 
YOU DON'T HAVE TO GO THROUGH 

ALL THAT. EG: A$=10/25/83 NO 



W TO FIND THE FIRST / WE TYPE:" 
1000 PRINT" A=INSTR(A$,";CHR$(34); 
”/";CHR$(34);")":PRINT" WHICH WILL 
FIND THE /CHARACTER FOR US AND 
PUT IT'S POSITION IN THE -VARIABLE 

A . " • 

1 01 0 / GOSUB 5000 : GOSUB 5150 
1020 PRINT "NOW TO EXTRACT THE DAY 
FROM A$ WE TYPE:8$=MID$(A$,A+1, 
2 )" 

1030 PRINT "WE CUT ABOUT 5 PROGRAM 
LINES DOWN TO 1 OR 2. BUT THE 
VALUE OF INSTR COMMAND DOESN'T 
STOP THERE." 

1040 PRINT : PRINT"SUPPOSE THAT YOU 
HAD A WHOLE LIST OF NAMES ON 
A FILE AND YOU WANTED A MANS 

NAME, BUT THAT YOU ONLY KNEW 

HIS LAST NAME STARTED WITH HA 

NGS" 

1050 GOSUB 5000:G0SUB 5150 

1060 PRINT" (HIS FULL NAME IS HANG 

SLEBEN) 

1070 PRINT "WE CAN USE THE INSTR F 
UNCTION TO SEARCH FOR ANY NAME 
WHICH CONTAINS HANGS, AND WE 
MAY GET MORE THAN ONE, BUT YOU WO 
ULD PROBABLY KNOW THE FULL NAM 
E WHEN YOU SEEN IT." 

1080 PRINT "THE PROGRAM WOULD PROB 
ABLY LOOK SOMETHING LIKE THIS." 
1090 GOSUB 5000 : GOSUB 5150 
1100 PRINT "10 FOR X=1 TO 1000 
1110 PRINT "20 INPUT #-1 , A$ 

1120 PR INT"30 IF INSTR (AS, CHRS ( 
34) ; "HANGS"; CHR$ (34) ; ") <>0 THEN P 
RINT AS 

1130 PR INT"40 NEXT X 
1140 PRINT : PRINT"AS YOU CAN SEE, 
INSTR WILL FIND ONE STRING THAT I 
S INSIDE ANOTHER. YOU WILL 

FIND IT VERY USEFUL." 

1150 GOSUB 5000 : GOSUB 5160 
1160 PR I NT" L I NE , AS YOU HAVE PROB 
ABLY GUESSED, DRAWS A LINE 0 

N THE GRAPHICS SCREEN." 

1170 PRINT" THE SYNTAX FOR LINE IS 
. m 

1180 PRINT "LINE(X,Y)-(X1,Y1 ),PSET 

II 

1190 PR INT" X AND Y ARE LOCATIONS 
ON THE HORIZONTAL AND VERTICAL 
AXIS OF THE GRAPHICS SCREEN, 
THE PSET TELLS THE COMPUTER T 

0 SET THE POINTS ON THE LINE." 
1195 GOSUB 5000 : GOSUB 5170 
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1200 PRINT "IF YOU HAD SPECIFIED P 
RESET INSTEAD OF PSET, THEN Y 

OU WOULD HAVE TOLD THE COMPUTER T 

0 RESET THE POINTS ON THE LINE TO 

0 ." 

1210 PRINT "SO THE LINE COMMAND WO 
ULD LOOK SOMETHING LIKE THIS IN 
A PR0GRAMLINE(12,33)-(80,39),PSET 

II 

■ 

1220 PRINT "OR LINE (1 2,33)-(80,39) 
, PRESET" 

1230 PRINT :PRINT" LET'S WRITE A SH 
ORT DRAWING PROGRAM USING LIN 

E, GET/PUT PEEK AND OTHERS." 

1235 GOSUB 5000:GOSUB 5170 
1240 PRINT" 10 PM0DE4,1 :PCLS:SCREE 
N1,1 20 DIM A (3,3) :K=1":PRIN 

T"30 PSET(128,96,5)":PRINT"40 GET 
(127,95)-(129,97),A,G 50 A=12 

8:B=96: PCLS" 

1 250 P R I N T " 6 0 PUT (A-1 ,B-1 ) - (A + 1 ,B 
+1),A,N0T 70 A$=INKEY$: IF A$="L" 
THEN LINE-(A,B),PSET" 

1260 PRINT "80 IF A$="M" THEN LINE 
(A,B)-(A,B),PRESET":PRINT"90 IF A 
$=CHR$(12) THEN PCLS 100 IF V 

AL(A$)<>0 THEN K=VAL(A$)"; 

1270 PRINT "FOR MORE LISTING HIT A 
KEY"; : GOSUB 5010:G0SUB 5170 
1280 PRINT" 110 IF PEEK (341 ) =247 T 
HEN B=B-K : IF B<1 THEN 8=1 
1290 PRINT "120 IF PEEK (342) =247 T 
HEN B=B+K : IF B>190 THEN B=190 
1300 PR INT" 130 IF PEEK (343) =247 T 
HEN A= A-K : I F A<1 THEN A=1 
1310 PRINT" 140 IF PEEK (344) =247 T 
HEN A= A+K : I F B>254 THEN A=254 
1320 PR INT "150 PUT ( A-1 ,B-1 ) - ( A + 1 , 
R+1) A NOT"* 

1330^ PRINT "160 GOTO 60" 

1340 GOSUB 5000 : GOSUB 5170 
1350 PRINT "TO USE THIS PROGRAM:": 
PRINT "1 . MOVE CURSOR WITH THE ARR 
OW KEYS TO WHERE YOU WANT TO 

START THE LINE, HIT THE M" 
1360 PR INT" 2 . MOVE THE CURSOR TO 
WHERE YOU WANT THE LINE TO 

END HIT THE L KEY. " 

1370 PRINT "3. IF THE CURSOR MOVES 
TOO FAST OR TOO SLOW FOR YOU, 
ENTER A NUMBER 1 TO 9 TO SPEE 
D IT UP OR SLOW IT DOWN." 

1380 PRINT "4. HIT THE CbEAR KEY T 
0 CLEAR THE SCREEN."; 

1390 GOSUB 5000 

1400 PM0DE4,1 :PCLS:SCREEN1,1 
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1410 CLEAR:DIMA(3,3) :K=1 
1420 PSET (128,96,5) 

1430 GET (127,95)-(129,97),A,G 
1440 A=128:B=96:PCLS:A$="Q TO QUI 
T" : GOSUB 6000 

1450 PUT (A-1,B-1 )-(A+1,B+1 ) , A, NOT 

1460 A$=INKE Y$ : I F A$="L" THEN LIN 
E-(A,B),PSET 

1470 IF A$="M" THEN L I N E ( A , B ) - ( A , 
B) , PRESET 

1480 IF A$=CHR$ (12) THEN PCLS:A$= 

"Q TO QUIT" : GOSUB 6000 

1490 IF VAL(A$)<>0 THEN K=VAL(A$) 

1495 IF A$=" Q" THEN 1560 

1500 IF PEEK(341 )=247 THEN B=B-K : 

IF B<1 THEN B= 1 

1510 IF PEEK (342) =247 THEN B=B+K : 
IF B>1 90 THEN B=190 
1520 IF PEEK (343) =247 THEN A=A-K : 
IF A<1 THEN A=1 

1530 IF PEEK(344)=247 THEN A=A+K : 
IF A>254 THEN A=254 
1 540 PUT (A-1,B-1 ) — (A + 1 ,B + 1 ) , A , NOT 

1550 GOTO 1450 
1560 GOSUB 5170 

1570 PRINT "YOU MAY HAVE NOTICED T 
HAT THE CURSOR IN THE DRAWING P 
ROGRAM DIDN'T ERASE ANY OF YOUR 
LINES." 

1 580 PRINT : PR I NT" WE ARN'T THROUGH 
WITH LINE YET THOUGH. WE HAVE M 
ORE OPTIONS TO LOOK AT, B AND F." 

1 590 PRINTLINE (10, 20)-( 20, 40), PS 
ET, B 

1600 PR INT"THE B STANDS FOR BOX A 
ND WILL DRAW A SQUARE ON THE SC 
REEN WITH THE UPPER LEFT CORN 

ER AT THE FIRST (X,Y) LOCATI 

ON" 

1610 GOSUB 5000:G0SUB 5170 
1620 PR INT "AND THE SECOND (X,Y) L 
OCATION IS THE LOWER RIGHT HAND 
CORNER OF THE BOX." 

1630 PRINT"HERES THE PRORAM:" 

1640 PRINT "10 FOR X=10 TO 100 STE 
P 10 20 LINE(X,80)-(X+20,100 

),PSET,B 30 NEXT X" 

1650 GOSUB 5000:PM0DE4,1 :PCLS:SCR 
EEN1 ,1 

1660 FOR X=10 TO 100 STEP 10 
1670 LINE <X,80)-(X + 20, 100), PSET, B 

Cton+inued on Page 87 



SOFTWARE REVIEWS 



FURY 

by Michael Plog, Ph.D. 

The game of FURY by Tim Purves 
is essentially an air shoot-em-up ar- 
cade game. Communist attack your 
country with airplanes, helicopters, 
hot air balloons, and magnetic air 
mines. You, the lone defender, have 
to shoot down all the enemy you can, 
without running into anything or being 
killed. 

The graphics of the game are good. 
The enemy aircraft are shown on the 
screen in decent detail. Action is 
fast and continuous, as should be 
expected from a high quality machine 
language program. 

Taken on the whole; however, the 
game has little to offer. One big pitch 
is that the computer "talks" during 
the play. The speech is not as good 
as Radio Shack's SKI program. I only 
heard one phrase, not too clearly, 
which I think said, "Your shot. Player 
One." The speech from the game was 
more of a hinderance than a help 
to the player. You have to wait until 
the speech stops before shooting the 
enemy. The speech is not bad at all 
for a first effort; however, I expect 
Mr. Purves will improve the sound 
quality in his subsequent programs. 

The play of the game itself is a little 
dissappointing. It is a copy of the 
meteor type arcade games. The play- 
er's "ship" stays in the center of 
the screen, while targets come toward 
it. Players fire with the red button 
on the joystick. If this sounds familiar 
to you, it is probably because several 
other games on the market are about 
the same. This one really has nothing 
new to offer, except for the talking. 

My negative comments should be put 
in context. I really have very little 
use for the run of the mill target 
practice games. If you like those 
kind of games, you may enjoy FURY. 



If you have some already (such as 
Meteor, Cosmic, etc.), you will not 
find this different enough to warrant 
a purchase. If you have no such game, 
then this might be a good one to 
have. 



This game is available from MichTron, 
(formerly Computer Shack), 1691 Eason, 
Pontiac, Michigan 48054 for $27.95. 




Demon Seed 



by Frederick Boyd 

It seems that more and more software 
is being delivered in a copy protected 
format, so as not to allow illegal 
copies to be made. Demon Seed by 
MichTron is such a program. Unfortu- 
nately, this also dis-allows the legit- 
imate purchaser from making his le- 
gally entitled backup copy. More on 
that later. 

After inserting the disk, the only 
version I tested, the user need only 
type <RUN "DE M0N">. A short BASIC 
boot program then alters the computer 
operating system to allow it to read 
the encrypted machine language disk. 
Then, stand back! The disk drive 
begins making odd, tapping noises 
as though there was someone inside 
tap dancing an audition for an amateur 
hour. Quite a racket. The reading 
process takes a never-ending twenty- 
four (24) seconds. When this machine 
code is in place, the user feels right 
at home. 

Documentation is an integral part of 
any program. Game instructions for 
Demon Seed are as concise as any 
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and are never again Looked at. You 
have the option of using the keyboard 
or the joystick for control. Forget 
about the keyboard, the joysticks 
are the only way to make any sense. 
Oddly enough, the program will not 
function properly without the joystick 
plugged in, anyway. 

"Demon" is obviously a take off on 
the popular arcade game "Phoenix". 
You are a moveable battle station 
at the bottom of the screen, not un- 
like Space Invaders. The fire button 
responds as a trigger allowing the 
player to fire at the descending at- 

tackers. One or two shots are allowed 
on the board at a time depending 

on the board, not machine gun style. 

The first board sends kamakazi bats 
to bomb the player. The wave flutters 
left and right, while a few of their 
number swoop down in formation to 
do their dirty deed. They are no 
trouble for an adept gunner to dodge 
and shoot down. Great Graphics! Flap- 
ping wings and irregular courses. 
The second board is the same except 
that only one shot is allowed on the 
board at a time. No problem for a 
sharp eye and quick finger. 

The game really shines on the third 
and fourth boards. The gunner is 
confronted with four descending eggs 
which hatch into colorful bird-like 
demons which again dive bomb and 
attempt collisions. These birds are 
tough to kill. You must score a direct 
hit on the nose to down them. A hit 
on the wing only delays their das- 

tardly persuit until they grow a new 
one. Two shots allowed on the third 
board. Just when all hope seems lost, 
the 'shields' can be activated for 
temporary safety. This is one tough 
board. Great graphics, though. The 
fourth board is even more challenging 
since only one shot is allowed. 

The fifth board is the climax of the 
game... the mother ship does battle. 
You must score a direct hit on the 
gargoyle inside the ship while avoid- 
ing the kamakazi bats, falling debris, 
and the mother ships descent, since 
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it terminates the game along with 
any remaining 'men'. 

This game is one excellent piece of 
programming. A year ago, when the 
CoCo was just beginning to see quality 
software, "Demon Seed" would have 
been a landmark. This is not Donkey 
Kong or ZAXXON, but one of the near 
great games available today. 

Every legitimate software purchaser 
is entitled to make backups of his 
programs for his own use. The copy- 
right owner has the right to make 
a reasonable profit from his efforts. 
It is unfortunate that the trend seems 
to be copy protected software, but 
I can see their point. I made my 
backup using the fantastic program 
"OMNI-CLONE". It was designed for 
the specific purpose of copying 'Un- 
copyable' disks. I recommend it to 
every HONEST CoCo user. The Demon 
Seed disk takes 24 seconds to load 
compared to another popular machine 
code game I own which takes 40 from 
tape... not much difference. Demon 
Seed is the only file which may re- 
side on the disk. For these reasons, 
the disk version hardly makes sense. 

I recommend that the buyer purchase 
the tape version. 

Happy Demon Hunting! 

Demon Seed is available from: MichTron 
(formerly Computer Shack), 1691 Eason, 
Pontiac, Michigan 48054 at $27.95 
on cassette or $29.95 on Disk. 



OMNI-CLONE is available from: Prickly- 
Pear Software, 9234 E. 30th Street, 
Tucson, Arizona 85710 at $39.95 on 
Disk . 




DEMON 




By Jeffrey Sorensen and Philip MacKenzie 





MUDPIES 



by Dan Curtin 

When I first received this program 

for review, I couldn't believe the 
title. I thought that the software 
industry had really gotten hard up 
of things to create games about. When 
I got down to trying the game out, 
I found a challenging game built a- 
round a clever theme. 

The game starts out with the main 

character, a kid named ArnoLd in 
a room full of mudpies and crazy 
clowns. The object of the game is 
to get him through the four rooms 
without getting zapped by the clowns. 
There are four main rooms that you 
can maneuver him through, each has 
items of food in them which he must 

eat in order to maintain the speed 
needed to ward off the clowns. As 
he goes through the rooms he must 

pick up the mudpies in order to hit 
any clowns which may be coming at 
hi m . 



Arnold does not need to hit clowns 
to survive. I found that the easiest 
way to pick up points is to maneuver 
him away from the clowns to the near- 
est open door and try to avoid engag- 
ing them. If he does get hit by a 

clown, two men in white coats carry 
Arnold out on a stretcher. This fea- 

ture is quite clever and "cute" and 
can be sped up by holding down the 
red button on the joystick in order 
to resume play. 

I found this game to be quite challeng- 
ing, since I was not able to get at 

some of the special features mentioned 
in the documentation. (I never was 
a whiz at these things anyway, but 
this one did hold my interest.) The 
graphics are good, although the rooms 

do not look that much different from 
each other. The clowns throw bowling 
pins around the room and move quite 
fast. The sond and sound effects add 
a lot to the play, also. All in all, 
this is a game one will find to be 




quite different from the run of the 
mill "alien shoot 'em up", and I think 
kids would get a big kiok out of 
it. Well worth the 29.95 price on 
the disk. 

My only complaint is that the disk 
is copy protected, and there is no 
mention in the documentation on how 
to get a backup, or if one can be 
obtained. Since this game would be 
handled by kids more often than the 
adults, I think MichTron should include 
an extra copy for the price. This 
is a shortcoming that can easily be 
solved; however, and I hope it will. 
Keep them coming, MichTron!! 

You can obtain a copy from MichTron 
(formerely Computer Shack), 1691 
Eason, Pontiac, Michigan 48054. 



MUDPIES 

by Jeff Sorenson & Philip McKenzie 





TIME BANDIT 

by M i ke Ha I I 

"All of Space is your Garden, and 
all of Time is yours in which to har- 
vest it. You are the Time Bandit!!" 
That is how the documentation starts 
out in this great new game from Mich- 
Tron. It comes packaged with an eye- 
catching multicolored picture on the 
front. The documentation is very suf- 
ficient for a game of this type, so 
I was off and playing only a few 
minutes after I opened the package. 

Time Bandit auto-starts after loading 
it from tape, and prompts you to 
press reset until the colors are cor- 
rect. Then you are presented with 
the title page and prompted to press 
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"J" for joystick or "K" for keyboard 
controls. Once that is chosen, the 
game begins, and you are "phased 
in" to your little hut on the Time 
gates map. The Time gate is like 
a home base. 

The object of Time Bandit is to wan- 
der around different maps collecting 
treasure and earning points while 
protecting your power supply. There 
are over 20 different maps, and each 
one has 16 different skill levels (1A 
through 4D), so there are over 300 
seperate challenges for your Time 
Bandit! Each map is about 3 or 4 
T.V. screens wide, and each map 
scrolls on and off as you move about 
it. The maps are divided up into 
three major sections — Fantasy World, 
Western World, and Space World. The 
maps all have names like Mystic Maze 
Black Dungeon, Tombstone Jail, Death 
Valley, Castle Greymoon, and the 
Insidious Grid. In order to get to 
these maps, you must get a key, go 
to a lock and unlock it with the key, 
and then pass through a gate. Once 
you are on a map, you have to repeat 
the above procedure to get back to 
the Time gates, where this pattern 
starts all over again. In the meantime 
a timer is ticking down in the upper 
right hand corner of the screen. You 
may have anywhere from 50 to 150 
seconds to accomplish your mission 
(it depends on the level you are on). 
If you run out of time, your power 
starts going down very quickly, and 
you usually end up dying. 

All of this would be difficult enough, 
but there is more. Scattered generous- 
ly on all the screens are a bunch 
of "Evil Portals." And from these 
portals come a variety of "Evil Guard- 
ians", which include evil Smurphs, 
giant Eyes, white Ghosts, smilely 
Faces, and weird Space Creatures. 
You can shoot these things for 30 
points. If you get hit by one, though, 
you lose 5 power points. You gain 
power back at a rate of oYte power 
point for every 100 regular points 
you score. A quick way to earn points 
is by grabbing the treasures on the 
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screen. The treasures include a bag 
of gold, a crown, a ring, and a gob- 
let. The first treasure you get is 
worth 100 points, the second one is 
worth 200, and so on. Some other 

obstacles in the game include one- 
way doors, and "warp" doors that 

take you from the bottom to the top 
of the screen, or vice versa. 

The game ends when you run out of 
power points. You can tell when you 
are getting low, because the whole 

screen starts flashing when you drop 
below 10 power points. The instruction 
say that a secret message will be 
displayed if you can make it to level 
4D. The farthest I have made it is 
to level 4A. The game gets more and 
more difficult with each level, and 
every 4 levels you have an extra 
key and lock to find before you can 
leave through the gate. 

Overall, I would have to say that 
this is the best game I have seen 
for the CoCo in a long time. The 
graphics are very smooth, the sound 
effects are good, and the controls 
react very quickly. This game also 
has more bad guys to shoot at than 
any other game. There are over 10 
of them, and they are all done in 
great detail. It also has the best 
variety of playing screens. It is well 
worth the price, and I would recom- 
mend it to any gamer who is looking 
for an original, fast paced, arcade 
game to add to his collection. 



Time Bandit is available for $27.95 
on tape or $29.95 on disk from: 
MichTron (formerely Computer Shack), 
1691 Eason, Pontiac, Michigan 48054. 




FANTASY WORLD: Conquer 
the halls of Doom, the 
Mystic Maze, the Under 
world Arena, and other 
medieval places. 



WESTERN WORLD: Visit the 
Lost Maverick Mine. Dead 
Man’s Pass, (Visit? 
Escape!) T ombstone Jail, 
and many more! 





SPACE WORLD: Explore 
Hyperspace, the bizarre 
Light Barriers, the Insid- 
ious Grid. Gamma Station, 
the Enterprise and others' 



TIME BANDIT 

by Bill Dunlevy 





AUTOTERM 

by Kerry Bankston 

If you are Looking for a Smart Termi- 
nal Emulator program that is extremely 
flexible and packed with powerful 
features, then AUTOTERM, touted as 
the world's smartest terminal emulator 
from PXE Computing, is the program 
to consider. This program is packed 
full of features that will make com- 
municating with other computers almost 
effortless. 

AUTOTERM is a ML program on tape 
or disk that comes with an attractive 
loose leaf bound manual with 81 pages 
of what I consider to be an excellent 
well written documentation manual, 
with many helpful hints, examples, 
table of contents and index sections. 
These examples and hints go a tong 
way in helping the user in implement- 
ing the many features this program 
offers. AUTOTERM will work in a 
16K,32K, or 64K CoCo; however, 32K 
is the recommended starting size, 
since AUTOTERM is 12K long. 

AUTOTERM offers easy and flexible 
operation using a menu operating for- 
mat. The screen format is the same 
as CoCo's 32 character per line. A 
nice feature I liked is the top line 
of the screen which is always under 
control of AUTOTERM. The top line 
shows which operating mode you are 
in, a memory size indicator (text 
buffer size), and case flags for such 
things as upper or lowercase and 
save to memory (on or off). You set 
the text buffer size by a CLEAR com- 
mand before loading AUTOTERM. To 
save text to memory, you simply turn 
the save to memory to on position 
by pressing CLEAR and UP Arrow 
(*) and to stop saving text, press 
CLEAR and UP Arrow (~) again. Losing 
your accumulated text is almost impos- 
sible, even performing RESET will 
not cause loss of text in memory. 
AUTOTERM can even be used for some 
simple word processing. 

AUTOTERM can be used with any modem 
and fully supports DC Hayes & others. 



It can be used with any printer that 
operates with the CoCo. 

AUTOTERM has 3 operating modes that 
can be accessed with simple keyboard 
commands. The modes are TEXT PRO- 
CESSING MODE, INTELLIGENT TERMINAL 
MODE, and KEYSTROKE MULTIPLIER 
MODE. 

In the TEXT PROCESSING MODE you 
can: 

Create and edit text/data with 
on screen editing (changing, delet- 
ing, inserting) 

Save or Load text/data to cassette 

Send text to printer with or with- 
out embedded printer codes 

Execute KSM (KEYSTROKE MULTI- 
PLIERS) 

Make full range of user options 
such as screen word wrap, 3 dif- 
ferent upper/lowercase displays, 
keybop & error beebop, and print- 
er controls 

In the INTELLIGENT TERMINAL MODE 
you can: 

Send and receive text/data 

Scan text/data while on line 

Edit text/data while on line 

Visual check text transmission 
speed 

Transmit a line at a time 

Checksum transmitted text or data 
for errors 

Send or receive BLOCK graphic 
or EXT. Basic pictures 

Save or load text/data to/from 
tape in ASCII, Binary or ML format. 

Execute KSMs and self test KSMs 

Make full range of user options 
such as Baud rates 110 to 1200, 
Duplex (Full or Half), Parity (Mark, 
Space, Odd, or Even), Stop Bits 
(1-125) and ASCII control key 
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(Line break 8 backspace) 

In the KEYSTROKE MULTIPLIERS MODE 
you can: 

Create 8 edit KSM definitions 
Save KSM definitions 
Load KSM definitions from tape 
Print KSM definitions to printer 



The manual gives clear and easy to 
understand examples for use of KSMs 
and when the user implements KSMs 
during an On-Line session. He or she 
can virtually perform an entire session 
from dialing via modem, to signing 
on, interacting, and signing off all 
by one keystroke. You will almost 
have to see this feature to believe 
it. The many features and uses are 
too technical to explain in this review 
but take my word for it they are 
powerful. 

In closing, AUTOTERM performed every 
bit as advertised, with excellent 
documentation. Hats off to the pro- 
grams's author, Phil Zwart, and PXE 
Computing for a top rated emulator 
program. If you want a program that 
will turn your CoCo into the world's 
smartest terminal, then AUTOTERM 
is the the program to buy. At $39.95 
it is a steal. Order yours from: PXE 
Computing, 11 Vicksburg Lane, Richard- 
son, Texas 75080. Disk version is 
$49.95. 




AUTOTERM 

TURNS YOUH COLOR COMPUTER INTO THE 

WORLD’S £ 

SMARTEST TERMINAL! 

YOU'LL ALSO USE AUTOTERM FOR SIMPLE 
WORD PROCESSING & RECORD KEEPING 



EASY TO USE 
ON SCREEN EOITING vi« Cu< JO» 
f nil prompting *np */r<y clicking 
Key Deep And E«o* Beeboo Scroll 
pkwd'iwd while on ime S*ve/io»0 
Met wn.ie on lin« Maintain a du» 
copy o' teaiion Automatic graph- 
•C* No split words on screen, 
primer Print all or part o< test 
Automatically adtusis io6«K Wen 
written manual goes step-Oysiep 
and has many KSM examples 
Dark i o»ei i\ a meal sheet 



RECOMMEND 32K to 64K 
EASY UPGRADE 

Price otllerence -SO 



PLEASANTLY POWERFUL 

Total communications ability 128 

ASCII Chars 1 200 hand, etc Send 
ti:»l graphics BASIC Ml Scan.’ 
Edit current data white receiving 
more data Any modem Fully 
supports D C Mayes and others 
Any printer page si/e margins 
etc Ove’ide narrow teat width ot 
• ecc-ved data E«amme/changc 
paiamete-s KSMs and disk duee 
lories at any time Handles Met 



CASSETTE $39 95 
DISKETTE $49.95 
Add $3 shipping and handling 
MC/VtSA/C o o 



TRULY AUTOMATIC 

Create edit, print, save and load 
Keystroke Multipliers (KSMsj 
K$Ms automate almost any activ- 
ity Dial Via modem. s<gn-on 
interact Sign-olt Perform entire 
session Act as a message laker 
KSM may include parameter 
changes, disk operations, editing 
time delays, looping, execution o' 
Other KSMs. wailing tor pirt- 
spccthed responses, branchmq 
based uprm responses 

PXE Computing 
11 Vicksburg la»* 
Richardson. Taias 150*0 

214/699-7273 








Ms. Gobbler 

by Arthur J. Motes 

I was very surprised one day, to 
find a package in my mailbox from 
the International Color Computer Club, 
Inc. I hadn't sent for anything, so, 
when I opened it and found Ms. Gob- 
bler by Spectral Associates, I was 
elated. The club had selected me 
to do a review on this piece of soft- 
ware. And although I'm in the business 
of selling software, I had never seen 
this one or don a review on anything, 
so this promised to be a new experi- 
ence. 

First of all, I'd like to say that 
I'm not much of a game player on 
the CoCo — my family uses me to 

play against when they want someone 
"easy". 

Upon CLOADing you are asked for 
1 or 2 players — so far so good, 

I managed that . Then it asks for 

your name — it's getting harder — 
I knew it wasn't going to be easy. 

Next you're asked for a skill level 

0 - 15, this was easy for me — I 

don't have any, so I entered a 0. 

When the screen came up it was a 

classic Pac type screen with a few 

extra turns, corners and features. 
The graphics were excellent. Then 
the fun began, the ghosts started 
moving after me and almost immediate- 
ly consumed my little pac-person. 
Did I mention I was "easy"? Well, 
this would not discourage me. I con- 
tinued to play until I felt that it 
was time for the "Acid Test" — my 

two teenagers. If anyone could test 
the value of game software it had 
to be them. 

1 became an impartial observer and 
my kids became Ms. Gobbler junkies. 
Sweaty palms prevailed and skill 
levels increased until they both were 
exhausted. I wish I could get them 
to do their chores with that much 
intensity ! 
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This is a fast action game with good 



graphics, color, changing screens 
and all the other things you would 
look for in a game. After many hours 
of playing time by the whole family, 
I feel that this is a sample of quality 
software from a professional company. 
Spectral Associates, 3418 South 90th 
Street, Tacoma, WA 98409, and is 
worthy of being in anyone's software 
library. 

Lunar Rover 
Patrol 

by C.L. Pillpauskas 

You're on Apollo Mission XXV on the 
lunar surface. A new breed of space 
pioneer, charged with the task of 
exploring the moon with NASA's latest 
lunar rover. Your course has been 
mapped out previously by spy satel- 
lite. It's a rough and rugged terrain 
with many unexpected obstacles to 
impede your progress. 

You start at your lunar base after 
a short fairwell fanfare, the lunar 
surface is covered with craters and 
boulders, but you easily jump the 
craters and blast the boulders to 
dust. Suddenly out of the sky appears 
a squadron of alien ships bent upon 
your destruction. You return their 
fire. You're concentrating so hard 
on destroying the enemy you fail to 
see that crater just ahead. Your rover 
crashes with an explosion, the wheels 
go flying... 

I have just described the (slightly 
exagerated) scenario of Spectral Asso- 
ciates' (3418 South 90th Street, Tacoma 
Washington 98409) latest offering 
of an arcade style game. Written by 
TD and BN Keeton, this program for 
a 32K Color Computer is modelled 
after the arcade game "Moon Patrol". 

The game is written in high resolution 
multicolored graphics machine language 
and comes on a protected cassette 
tape(or disk). You control the rover's 
motion with the right joystick and 
fire with the fire button. Hitting 



the BREAK key causes the program 
to pause and hitting SHIFT a resumes 
play. 

The most outstanding aspect .of this 
game is it's excellent graphics. The 
moonscape changes and good ol' mother 
Earth can be seen in the sky. The 
sould is equally well done, but overly 
long at some points, and play won't 

resume until the song is over. 

There are two "levels" of play: be- 
ginner and expert. The game always 
starts at the beginners level and, 
I assume, when this level is complet- 
ed you go to the expert level (I have 
not quite made it all the way through 
the beginner level YET). 

Another interesting twist to this game 
is the fact you are not only trying 

to accumulate points, but also racing 

against a clock. As you finish each 

predetermined leg of your journey, 
a scoring screen appears. You are 
told the number of points you have 
earned and you are awarded bonus 
pints if your time has beaten the 
predetermined average time or if you 
set a new course record. The only 
negative aspect of this feature is 
it takes some time to generate all 
the information on the screen while 
you're itching to get back to the 
game. 

The instruction sheet is more than 
adequate in describing the game play 
and scoring. A third of the manual 
is spent expressing Spectral Associates 
apologies for being forced to go to 
protected software and how to replace 
defective tapes and disks and how 
to exchange a tape for a disk. 

The game is very enjoyable to play 
especially if you like a change from 
some of the more nerve bending and 
sweaty palm type games. My two re- 
sident arcade specialists (ages 10 
& 13) found the game fun to play 

and' not frustrating as some of the 
others I have in my library. 

All in all, I would say this is a 
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good game to add to your collection. 
Easy enough in the beginning for the 
younger or less experienced players 
and challenging enough for you arcade 
players with blisters on your fire 
button finger. 



C.L. Pilipauskas 




Assembler 

Math 



by John B. Spa+aro 

Assembler Math is a hi-res tutorial 
that teaches the mechanics of convert- 
ing between the Binary, Decimal and 
Hexadecimal numbering systems, and 
addition and subtraction of binary 
numbers. It comes with a 5" X 8" 
pamphlet, 12 pages long, with one 
page devoted to each of the following 
sections: 

Converting Decimal to Binary 
Converting Binary to Decimat 
Adding Binary Numbers 
Subtracting Binary Numbers 
Converting Binary to Hexadecimal 
Converting Hexadecimal to Decimal 
Converting Decimal to Hexadecimal 

The remaining pages describe how 
to load and use the program which 
also includes a demonstration program. 

Technically, the program is well writ- 
ten and works fine; however, it pri- 
marily provides practice problems. 
Much as flash cards provide practice 
in addition and subtraction) and as 
such would be an excellent adjunct 
to computer programming training. 

After running the program several 
times, and admiring the techniques 
used by the author, I asked one of 
my coworkers who was working on 
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a digital logic correspondence course 
to try it. It provides excellent prac- 
tice problems and one soon reaches 
the point where it is no longer needed. 

The question of whether or not you 
should buy this program is one that 
only you can answer. You can probably 
learn to do the conversions without 
this program or let the computer do 
it. There is a great deal more to 
assembly language programming other 
than the math. I would expect the 
greatest market for this program would 
be those people involved in teaching 
computer programming. 

The program is available from Rainbow 
Connection Software, 3514 6th Place 
NW, Suite C, Rochester, MN 55901. 
It requires 32K Ext. Basic and sells 
for $24.95 Cassette or $27.95 Disk. 



WILD PARTY 

by B & 8 Software 

WILD PARTY is a risque party game 
that may be played by two to six 
couples. The play of the game consist 
of a sequence of events performed 
by a gal, by a guy, or by a couple. 
As the game proceeds, the computer 
describes each event and designates 
the participants by name. The events 
selected by the computer are designed 
to liven up the dullest party, things 
tike hugging or kissing or removing 
an article or two of clothing, plus 
some even wilder events which we 
won't describe because that would 
spoil the suspense. 

Since WILD PARTY is described as 
a naughty, sexy game, you may be 
wondering how obscene the game really 
is. In terms of movie ratings, we 
consider WILD PARTY to be R-Rated, 
not X-Rated. Since WILD PARTY uses 
the computers RND function for the 
removal of clothing, it might happen 
that you are completely undressed, 
but very unlikely. 

WILD PARTY can be obtained from 
B 8 B Software, P.0. Box 210, Jen- 
kintown, PA 19046 for $35.00. 



From the Creators of Rainbow WriterTT. 




RAINBOW 
SCREEN MACHINE 



SUPER 
SCREEN MACHINE 



The Rolls Royce of graphics/text screen enhancers 
— more features than all others combined' 

• Add these features to your computer/program. 
ML extension of Basic loads on top of 16. 32. or 
64K machines to enable easy mixture of hi-res 
graphics and text in your programs Dense text 
or large lettering for children, visually impaired 
or VCR title screens with no programming 1 

• User definable 224 character set featuring 
lower case descenders. Greek, cars, tanks, 
planes, etc., completely interfaced with all 
keys, commands, and PMODES 12 sizes (most 
colored) from 16x8 to 64x24 

• 2 distinct character sets automatically switch 
for sharpest lettering featuring underline, sub- 
script, superscript, reverse video, top and 
bottom scroll protecL double width, colored 
characters in PMODE 4. and help screen 

• Simple 2-letter abbreviated commands inside 
your program or control key entry from key- 
board. even during program execution! 

• Includes demo program, character generator 
program and manual. 16K Ext. Basic required - 
32K recommended. $29 95 Tape. $32.95 Disk 



Revolutionary — heralded as the most useful, 
powerful and versatile state-of-the-art utility ever 
developed for the Color Computer' 

• All of the features of Screen Machine and more 

• Variable SMOOTH Scroll for professional dis- 
plays. listings, business use 

• Variable volume Key Click (tactile feedback) 

• EDTASM+ command for instant compatibility 
with R.S. editor-assembler cartridge, providing 
64x24 display. 

• Superpatch-*- command for instant compatibility 
with disk EDT ASM 

• True Break key disable and recognition 

• 10 User Definable commands used to activate 
your special drivers or subroutine 

• Dynamic Screen Dump command for use with 
Custom Software. Engineering s Graphic Screen 
Print program for simple printer 'Snapshots’' of 
your screen even during program execution! 

• The new standard — Upgradeable at any time 
from previous Rain bow- Writer or Screen Machine 
purchase. Return old program, manual, plus cost 
difference and $7.00 shipping and handling. 

• Super Screen Machine $44.95 Cass - $47.95 Disk 
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RAINBOW 
CONNECTION 
SOFTWARE 

RAINBOW CONNECTION 
SOFTWARE 

3514 6th Place NW. Suite C 
Rochester. MN 55901 
507-288-4424 



YES. I want io easily create dazzling displays with the Pest 
SCREEN Enhancer lor my Color Computer Please RUSH 
me (he incredible SCREEN MACHINE at the affordable 
pnce of 

Rambow S.M $29 95 Tape • $32 95 Disk 

Super SM S44 95 Cass-S47 95 D.sk 



Shipping 

Minnesota residents add 6°o Sales Tax 
Visa & Mastercard add 3°« 
— ExP 

TOTAL 



NAME 



A00RESS 



CITY 



S? 00 



state 

Personal checks welcome • no delay 
Send SASE for catalog 
Not affiliated with 
THE RAINBOW 



ZIP 



Available at fine stores everywhere and Kelly Software Distributors LTD in Canada 
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Chopper Strike 

6y Bernard Roskoski 

Chopper Strike is a well conceived, 
well written arcade game which in- 
volves the use of a joystick flown 
helicopter to both save "humans" and 
destroy various enemy obstacles. It 
is both enjoyable and challenging. 
The game is, I believe, a somewhat 
well known arcade style game. I have 
heard or read of similar games, but 
have not seen these either for CoCo 
or in the arcades. Rest assured though 
this one is a winner. 

Chopper Strike opens with a good 
demo mode which depicts the basic 
requirements of the game. The graph- 
ics are good and the sound, while 
not overpowering, is satisfactory and 
functional. Your objective is to rescue 
"humans" while destroying gun em- 
placements, missiles, oil tanks, heat 
seeking missiles and guided missiles 
(if you can). The screen is split 
with a crosshair in the upper right 
hand corner, which, if you can re- 
member to watch, will insure that 
your shots are true and accurate. 
The upper left corner keeps track 
of your score and remaining "Choppers'. 1 
The scrolling landscape varies end- 
lessly with some complex surprises. 
As your skill in flying the "chopper" 
increases and your shooting skill ap- 
proaches that of a marksman, you 
can swoop down into intricate tunnels 
shooting targets and saving humans. 
To do anything less spells disaster. 
If you accidently shoot a "human" 
you loose a "chopper". Of course, 
if you run into anything or get shot 
by the guns or missiles your ship 
is destroyed. 

The game was played using a Kraft 
joystick with a center return. Under 
these conditions, the chopper respond- 
ed well with no jerkiness. The game 
continues on until your ships are all 
destroyed. Each 10,000 points you 
make gains you a bonus ship. After 
two weeks of play, the arcade expert 
in the family got 30,000 points before 
succumbing to the inevitable. It is 
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a tribute to the playability of the 
game and the skill of the programmer 
that no one got bored with this offer- 
ing. 

Chopper Strike is entertaining, some- 
what addicting and deserves a place 
in your software library. 

You can obtain a copy of Chopper 
Strike from MichTron (formerly Com- 
puter Shack), 1691 Eason, Pontiac, 
Michigan 40854 for $27.95 on tape 
or $29.95 on disk. 



C ASHMAN 

by Stan Saunders 

Of all the games that I have 
been fortunate enough to get for 
review, "Cashman" was a real 
pleasure! While most games at 
least hint at violence, this one 
is, in a word, FUN. 

With Cashman, you can pick a 
level of play that will enable 
you to play without feeling in- 
adequate or, for the accomplish- 
ed gamester, you can pick a 
level of play that will give you 
a rea l cha l lenge . 

This game has so many features, 
I really don't know where to 
begin, but I will attempt to 
mention enough of them to give 
Bill Dunlevy and Doug Frayer, 
the authors of the game, credit 
for a job well done. 

The game, as supplied on disk, 
starts automatically when you 
type 'RUN "CASHMAN"'. You are 
given a choice of which joystick 
to use, or you can choose to use 
both if two players are to be 
playing. The player with the 
right joystick controls the 
"Sailor" and the player with the 
left joystick controls the 
"Shiek". (I always choose the 
"Shiek", since he reminds me of 
my favorite cartoon character, 
Andy Capp ) . 



The object of the game is to 
move around the screen collect- 
ing money, represented by a dol- 
lar sign. Depending upon which 
of the 40+ screens (yes, forty 
plus) you are on, you move by 
running along horizontal beams, 
by climbing ladders, chains, 
nets, etc..., or by leaping from 
one girder to another by press- 
ing the fire button on the joy- 
stick. To maKe things interest- 
ing, the authors have included 
conveyors which double or half 
your speed, depending on the di- 
rection you are facing, and 
"flingers" which will toss you 
in the direction you are heading 
twice as . far as a normal jump. 

Other objects that are present 
on the screen are bomb carriage, 
bombs, eggs, 'byrds', 'kats', 
and zappers. The bombs are drop- 
ped from the bomb carriage and 
are not harmful, earning a play- 
er $30 when your man runs over 
(disarming) the bomb; however, 
if not dealt with will turn into 
either 'kats' or eggs. The eggs 
can be collected by a player and 
can be thrown in a horizontal 
direction toward the other play- 
er, a 'kat', or a 'byrd'. If you 
hit a 'kat' with an egg it earns 
you $150, or if you hit a 'byrd' 
it earns you $250. Hitting your 
opponent's man with an egg will 
reduce his power to step by one. 
The eggs eventually turn into 
'byrds'. 

As mentioned before, this is a 
non-violent game, and falling 
off a ladder, girder, or whatever 
simply requires that you start 
your climb again. The game is 
terminated when a power strip 
displayed at the bottom of the 
screen, left side for the left 
joystick, or right side for the 
right joystick, reaches zero. 
Your powerstrip at the beginning 
of the game has ten units and is 
reduced by one each time you are 
struck by a 'kat', stepping on a 



zapper, or getting hit with an 
egg flung by another player. 

The 40+ different screens that 
Cashman offers are divided into 
screens 1-4 (Easy), 5-10 (Super- 
jump), 11-22 (Moderate), 23-27 
(No- j ump i ng ) , 28-39 (Experienc- 
ed), and 40+ ( E xpe r t -" Puz z l e" ) . 
The documentation states that 
only the BEST can handle the EX- 
PERT screens. I must report that 
I am not an expert, and I did 
not view the screens beyond 
screen 40. 

When a game is finished, your 
name and score will be recorded 
(provided it's high enough). You 
will become a member of the 
Cashman gang with a rank appro- 
priate for your score, ranging 
from 'Katbait', 'Egghead', 'Bag- 
boy?', 'Fa l l guy', to 'CASHMAN!'. 

Other optional controls not men- 
tioned above include a game re- 
start: press the 'X' key, a game 
pause: press the ' P ' key- (ENTER 
resumes), and an alternate color 
set: press the SPACEBAR. 

Cashman requires 32K ECB and is 
available from MichTron (former- 
ly Computer Shack) on tape for 
$27.95, or on disk for $29.95. I 
feel that I should mention that 
the disk version is copypro- 
tected and I would advise you to 
put a write-protect tape on the 
disk to prevent inadvertently 
writing to the disk. 

I feel that Cashman will become 
one of CoCo's favorite games, 
ranking right up there with Zax- 
xon and Donkey Kong. Again, Bill 
Dunlevy and Doug Frayer are to 
be congratulated for a iob well 
done ! 

CASHMAN 

By Doug Frayer and Bill Dunlevy 
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MUSICA 

by Ronnie Powel I 

MUSICA is a software music program 
produced by Speech Systems, manufac- 
turer of THE VOICE, THE COMPOSER, 
and THE STEREO COMPOSER. This pro- 
gram makes writing music almost as 
easy as composing on paper. It in- 
cludes a well written manual, six 
musical demo selections, and a "play" 
program which allows a composition 
to be called up during any BASIC 
program . 

The notes are displayed on standard 
musical treble and bass staves. Music 
is entered on these staves by posi- 
tioning a cursor with either the arrow 
keys or a joystick and pressing ENTER, 
Entries can be made in any of four 
voices which permits playback of 
four part harmony. 

The command keys enable the user 
to enter rests, sharps, and flats as 
well as change note length, timbre, 
tempo, and tone volume. In addition, 
notes can be inserted, deleted, or 
changed with the edit function. 

Although the tape version of MUSICA 
will run on 16K with limited composi- 
tion space, all but one of the musical 
demonstration files require 32K. User 
created music can be saved on tape 
or disk. 

I would recommend MUSICA as a useful 
tool to the serious composer or a 
gratifying pasttime for the computer 
hobbyist. 

You can obtain MUSICA from Speech 
Systems, 38W255 Deerpath Road, Bata- 
via, Illinois 60510 for $34.95 on 
cassette or $39.95 on disk. 



VDOS 

by Ronnie Powell 

VDOS or Virtual Disk Operating System 
is a machine Language program which 
allows storage of several BASIC or 
machine language programs in upper 
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What goes well with 
the Rainbow? 




Rainbow On Tape! 

We call it the other side of the Rainbow, and we may have 
to raise the price just to call your attention to it. With more 
than two dozen programs every month, Rainbow On Tape is 
a luxury service at a bargain basement price. 

What is it? Rainbow On Tape is a monthly, cassette tape 
adjunct to the Rainbow and it’s brimming with all the pro- 
grams (those over 20 lines long) that fill the pages of the 
magazine. All you do is pop the cassette in your tape 
recorder and they’re ready to run. No more lost weekends 
—or weeknights — typing, typing, typing. With Rainbow On 
Tape , you must read the article in the magazine then, in 
seconds, you load it up and run it. 

Yes, Rainbow On Tape is brimming with the programs that 
fill the Rainbow’s pages each month. And, yes, you could 
type them in yourself, as many people do. But all of them? 
Every month? There simply isn’t enough time. 

Isn’t it time your CoCo became a fulltime computer instead 
of a typewriter. Think how your software library will grow. 
With your first year’s subscription, you’ll get almost 300 new 
programs: games, utilities, business programs, home appli- 
cations — the full spectrum of the Rainbow’s offerings with- 
out the specter of keying in page after page and then 
debugging. 

Rainbow On Tape — the "meat" of the Rainbow at a price 
that's "small potatoes." Food for thought. To get your first 
heaping helping, 



memory. VDOS was written by Dr. 

Laurence D. Preble, who wrote MINI- 
DOS which appeared in the July issue 
of RAINBOW magazine. Since tranferring 
a program between storage and working 
memory does not involve any mechan- 
ical device, saving or loading a pro- 
gram is much faster than cassette, 

and even faster than a disk. 

After loading VDOS, the program self 
executes and prompts you to enter 

the highest memory location that VDOS 
will use. Normally half of your total 
memory will be used for storage, 
but entering the appropriate memory 
location allows you to adjust the ratio 
of working memory to storage memory. 
Maximum storage capacity will be 
about 54K with 64K of memory, 24K 
with 32K of memory, and 8K with 

16K of memory. In a 16K machine, 

VDOS clears all of the high resolution 
graphic pages for more storage space, 
but you can use the PCLEAR command 
to restore these pages. The system 
works especially well with a 64K 
machine since the normally unused 
upper 32K of RAM is accessed for 
storage space. 

Once you have entered the highest 
memory location that VDOS will use, 
the screen will display copyright 
information, instructions for obtaining 
the VDOS menu, and the highest use- 
able address of working memory. You 
are now in BASIC and can type in, 
load, or save programs as usual. 
To get to VDOS, simply type VDOS 
and press <E NTE R>. The VDOS Menu 
will appear with the following options 

1 - DIRECTORY 

2 - SAVE BASIC PROGRAM 

3 - LOAD BASIC PROGRAM 

4 - SAVE BINARY FILE 

5 - LOAD BINARY FILE 

6 - KILL BASIC PROGRAM 

7 - KILL BINARY FILE 

8 - EXIT TO BASIC 

As an example, to save a machine 
language program in working memory 
to storage memory, you would select 
menu option number 4. You will be 
asked if it is all right to "USE DE- 



FAULT ADDRESSES (Y/N)?". If you 
used a disk to load the program then 
answer "N", and you will be prompted 
to enter the START, END, and TRANS- 
FER addresses. If you used .a cassette 
to load the program then answer "Y", 
and the START, END, and TRANSFER 
addresses wilt be automatically saved 
in memory. Next you will be asked 
to enter the file name. Now your pro- 
gram is saved. Selecting DIRECTORY 
from the menu will display remaining 
storage space and list your stored 
programs by type (BASIC or BINARY), 
name, and size. Also, load and ex- 
ecute addresses are displayed for 
machine language programs. 



VDUMP is an optional VDOS cassette 
utility. Without VDUMP, every time 
you power up your computer and load 
VDOS, you have to reload and save 
each program you want stored in mem- 
ory. VDUMP; however, will save the 
entire contents of VDOS storage with 
one pass to tape and load it back 
later. 






To save your VDOS stored programs, 
load VDUMP using CLOADM"VDUMP" 
and type EXEC once loaded. You will 
be asked if you want to "DUMP OR 
LOAD (D/L)?". Now load a blank tape 
in your cassette machine and place 
it in the record mode. Typing "D" 
will dump the entire contents of VDOS 
storage to tape. Next time you want * 
to use VDOS, simply load the VDOS 
tape, the VDUMP tape, and your stoi — 
age tape and you will be back in 
business. 



VDOS and VDUMP come with well writ- 
ten documentation that not only covers 
complete operating instructions, but 
also covers almost any problem you 
might encounter. The programs perform 
as specified and are very useful. 
I would; however, like to see a built 
in merge utility and the capibility 
of saving data files to storage memory 
added to VDOS. 



I would recommend VDOS and the op- 
tional utility VDUMP as a system that 

Cbntlnued on Page 85 
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GRAPHICS EDITOR 
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LIST ff+f SCREEN rUOftff 
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T.V. GRAPHICS EDITOR 

T i RED cr PLAYING GAMES? The TV Graphics Editor 
allows you to expand your creativity. Simple 
joystick cursor control and powerful but easy to 
use keyboard commands allow you to create# print# 
save# and use anything the screen will display. 
Become an artist# make blueprints# design grap- 
hics# plan the terrain for Your next video game. 
TVG Editor makes it easy with great features: 

* **4 or 2 color CGP-115 printer SCREEN PRINT. 

♦ **Fu 1 1 page Radio Shack DMP SCREEN PRINTS. 
(DMP100# 200# 400# LPVI i # VI II )( DMP 110) 

♦♦♦HI-RES: PMODE's one# three# and four. 

♦♦♦Draw dots# lines# arcs# ellipses & circles# 
letters. Magnify# duplicate# paint with amazing 
colors# exchange colors# etc.# etc. 

♦♦♦Easy corrections# if you draw something you 
don't like. 

* ♦♦CSAVEM picture to cassette for later use with 
BASIC or ML programs# or for later editing. 

•♦♦TVG EDITOR is only $29.95 Cndn. or $24.75 U.S. 



HARDWARE- SOFTWARE INTERFACE 

ORDERING INFORMATION 

All three programs are 1003 machine language and 
will run with any version of BASIC# on any TRS-80 
Color Computer / including COCO 2 and 64K COCO. 

Quantity Discounts for your store# COCO club# or 
users group. Mix any of the three fine programs. 
5-9,302: 10-19# 35%: 20-29#402. More# please call. 

Please send cheque# money order# or VISA number 
with expiry date and signature to: 

HARDWARE-SOFTWARE INTERFACE 
820 0UNSMUIR ROAD# 

VICTORIA# B.C.# CANADA# V9A 5B7 

Or# Phone (604) 384-2626 

Please include $3 for handling and shipping. 8.C. 
residents add sales tax. American customers may 
use U.S. funds for convenience# others please use 
Canadian funds. Please allow two weeks for per- 
sonal cheques to clear. 



SCREEN TWO 

RAIN8C 

EXPAND YOUR DISPLAY! ce«t.f.cati 

SEAL 

Does all your printing on the Hi-Res PMODE 4 
Graphics screen# in a manner compatable with 
COLOR# EXTENDED and DISK BASIC# for 16K or 32K. 
It's a vast Improvement over the origional 
screen In virtually all respects. 



•Line lengths from 
I to 85. 

♦True lower case 
wi th decenders . 

♦Position independent 
code. 

♦PMODE 4 Graphics on. 
screen wi th text. 



♦Lines on screen from 
I to 27. 

♦Inverse video. 

♦Instructions for sav- 
ing to disk. 

♦Make text "window" 



♦With its condensed character sets# SCREEN TWO 
uses only 1-1/2K of your valuable system RAM. 

♦Just $14,95 Canadian or $12.50 UiS. 




PLANET CONQUEST 

Combines the SKILL of learning to pilot and land 
your spaceship as in a "LUNAR LANDER" with the 
THRILL of aerial dogfights with flying monsters 
that threaten the success of your mission. 

Dangerous landings and variable gravity add to the 
excitement. There are 3 "Lander" levels plus 6 
more with monsters. $19.95 Canadian or $16.50 U.S. 




HARDWARE REVIEW 
STAR GEMINI 10 PRINTER 



by Paul D. Kirkpatrick 

I have been thrilled with my Gemini 
10 printer from virtually the first 
moment it arrived. It came packaged 
in a corrugated box with a plastic 
carrying handle which I opened care- 
fully so I could use it for future 
transportation of the unit. 

The printer is housed in an attractive 
beige case with a smoked gray trans- 
parent cover. On the right side are 
three control buttons, on line, form 
feed and line feed. Above the controls 
are four indicator lights. Three of 
them are green and are for Power, 
Ready, and on line. The fourth one 
is red and indicates paper out. 

The unit comes with two manuals. 
One preliminary operation manual with 
34 pages and the users manual with 
214 pages. Together, they explain 
everything there is to know about 
the unit from unpacking to its mainte- 
nance. 

The Gemini 10 has a built in self 
test that will yield a printout of 
the full set of characters it is able 
to print which includes the copyright 
symbol, cents sign, German and French 
accents, scientific notation, high- 
resolution graphics and more. 

The printer can type Superscript, 
Subscript, Double Wide, Condensed, 
Italics, Proportional, Double Strike, 
Emphasized, Underline, Pica, Elite, 
Slash Zeros, Set Tabs, Change Line 
Feed, and Set Margins. 

The printer control codes can be eas- 
ily embedded into any word processor 
tha can handle such a task, making 
this versatile printer really shine. 

Codes are sent by using the <ESC> 
key and since the CoCo does not have 
this key, CHR$(27) is used instead. 
An example of the use of the empha- 
sized mode without a word processor 



program would be: PRINT#-2,CHR$(27); 
CHRSC69), so with the use of CHR$(X) 
you can set all print modes, set tabs 
vertical and horizontal, set margins, 
etc. 

I purchased the parallel version and 
the Botek interface with baud rates 
up to 9600. The interface comes docu- 
mented with the necessary POKES to 
change the baud rate which is normal- 
ly 600 with the CoCo. 

The Star Gemini 10 and the Gemini 
15 (which handles 15 inch paper and 
can be bottom fed) can handle single 
sheets, roll paper and tractor fed 
fan fold paper. 

It is available from a number of Deal- 
ers at a number of prices. I got mine 
from Sunlock Corporation, 4217 Caro- 
lina Ave., Richmond, VA 23222 for 
$319.00 plus $79.00 for the Botek 
interface S cable and $11.00 shipping 
& handling for a total of $409.00. 
Sunlock prefers to send their products 
C.O.D. 

All in all, the Gemini 10 has been 
my best purchase since the CoCo itself. 



Cbn+lnued from Page 83 

will greatly enhance a cassette based 
system or perform as an extra drive 
for a disk system. 

VD0S ($49.95) and VDUMP ($14.95) 
are available from Dr. Preble's Pro- 
grams, 6540 Outer Loop, Louisville, 
KY 40228. 



THE UN-DISK 




UN-BELIEVABLE 
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V" TWO C5 IE T OKI El FREE -**• 

U> T X l_ X T X E S 

POKES, PEEKS & EXECS FILE: Get complete Color Computer power thru 

this exhaustive file of OVER 100 pokes* peeks & execs with full 
comments & remarks for each. Includes 3 hi -speed pokes, 3 list 
disable pokes, BREAK key disables & much more. We’ll even give you 
a BONUS: A TAPE-TO--DISK COPY PROGRAM. All this for *5. file or. 
tape: $7.50:File on disk $9.50 

Recent SUPPLEMENT to POKES, PEEKS & EXECS FILE with additional 50 
poke, peek &. exec commands. Only $3.00 

HIDE-A-BASIC: A perfect utility to protect your basic programs. 
Helps you disable BREAK key, RESET button, LIST & DIR commands & 
create an Error— skip routine. 16K ECB. Cassette: $16.95. 

ALPHA— DIRS Alphabetizes your disk directory. Sorts granules, file 
type & ASCII flag. 16K ECB. CAS: $6.95:Disk: $14.95. 

EE O U C A T X O M A l_ 

COLOR PAD: A ’Fun Pad’ for children & adults. Draw, edit, erase 
and saveton disk &. cas. ) your creat ions . Draw any thing . Bonus: COLOR 
SKETCH BOOK PRO. 16K ECB. Tape-$14. 95 : Disk-* 17. 95 

COLOR SKETCH BOOK PRO: Solar Systems, Shi ps, Airplanes, Landscapes. 
Tape-$5. 00: Disk-$7. 50 . < EACH > . 

Note: All COLOR SKETCH BOOKS require COLOR PAD program. 

MATH JOY: ADDITION & SUBTRACTION 

: Teach your children Math in a fun style. Superb hi -res graphics , 
sound & animation. 3” bold numbers. Teach ing & drills. 16K ECB. 
Tape-*! 1.95 

G A M ie: s 

MOTORBIKE CHALLENGE: Ride your motorbike without crashing onto 
electrified hazards & bomb-ravaged bridge while racing against the 
clock. Excellent hi-res graphics & sound. 16K ECB & Joystk req. 
Tape-$14. 95. 

HAUNTED TREASURE: Journey thru 54 rooms and castle in search of 
haunted treasure. Beware scorpions, ghosts, missi les, vampires & 
electrified walls. 32K ECB & joystk. Tape-$19.95. 

GIRDLE THE ENEMY: Surround & stop your opponent’s move thru 
strategy & skill. 16K ECB 8 /. 2 joystk. Tape-$12»95. 

ORDER TODAY! Send check, MO, COD ( $2. 00 ). Add $1.50 for S & H. Club 
discounts available. NYS res. please add sales tax. 

MICROCOM SOFTWARE 
P.0. BOX 214 
F A I R PO RT , NY 1 445 0 
PH: (716)425-1824 




\ 
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: FOR DL Y=1 TO 500:NEXT DLY:PCLS 
1680 NEXT X 
1690 GOSIJB 5170 

1700 PRINT"0K, NOW LETS LOOK AT T 
HAT F WE DREW A BOX, F STANDS 

FOR FULL, SO LETS FILL IT UP 

PRINT "CHANGE A LINE IN OUR PRO 
GRAM TO READ:":PRINT"LINE(X,80)-( 
X+20,1Q0),PSET,BF" 

1710 GOSUB 5000 
1720 PM0DE4,1 :PCLS:SCREEN1,1 
1730 FOR X= 1 0 TO 200 STEP 10 
1740 LINE ( X, 80 ) - (X + 20,1 00) , PSET ,B 
F : F 0 R DLY = 1 TO 500:NEXT DLY:PCLS 
1750 NEXT X : GOSUB 5170 
1760 PRINT "YOU CAN USE PRESET TO 
CLEAR CERTAIN AREAS OF THE GR 

APHICS SCREEN WITHOUT DOING A C 
OMPLETE PCLS . " 

1770 PRINT :PRINT"FOR AN EXAMPLE:" 

1780 GOSUB 5000 

1790 PM0DE4,1 : PCLS : SCREEN1 ,1 

1800 FOR X=0 TO 255 STEP 5:LINE(X 

,0)-(X,191 ),PSET :NEXT X 

1810 FOR X=0 TO 191 STEP 5:LINE(0 

,X)-(255,X),PSET :NEXT X 

1820 A$=" CLEAR A" : H=30 : GOSUB 2000 

1830 A$ = "S POT FOR" :H = 60: GOSUB 200 
0 

1840 A$="THIS SET" : H=90 : GOSUB 200 
0 

1850 A$="OF WORDS ":H=120:G0SUB 20 
00 

1860 A$="LIKE THIS!":H=150:G0SUB 
2000 

1870 A$=" H I T A KEY":H=184:G0SUB 2 
000 

1880 GOSUB 5010 

1890 GOSUB 5180: G0T02050 

2000 L = LEN(A$) :L1=110-( (L/2)*12) : 

LINE(L1-12,H-23)-(L1+(16*L)+12,H+ 

2), PRESET, BF 

2010 XL$=STR$(L1 ) :XM$=STR$(H) 

2020 XN$="S4;BM"+XL$+","+XM$+";" 
2030 DRAW XN$ 

2040 GOSUB 6020: RETURN 

2050 PR INT"LOG, SHORT FOR LOGARIT 

HM." 

2060 PRINT" RETURNS THE NATURAL LO 
GARITHM OF A NUMBER, (BASE E)." 

2070 PRINT "THE LOGARITHM OF A NUM 
BER IS THEPOWER TO WHICH A GIVEN 
BASE MUSTBE RAISED TO RESULT IN T 



HE NUMBER. LOGS ARE USEFUL 

IN " 

2080 PRINT "SCIENTIFIC AND MATHEMA 
TICAL PROBLEMS. IN THE LOG FU 

NCTION, THE BASE IS 6=2.71827182 
8 " 

2090 PRINT "TO FIND THE LOGARITHM 
OF A NUMBER WITH ANOTHER 3 AS 

E, USE:" 

2100 GOSUB 5000 : GOSUB 5180 
2110 PRINT"THE FORMULA :": PR INT"LO 
G,base b (X ) =LOGe (X) /LOGe (B) " : PR IN 
T"EG:":PRINT"LOG(100) /LOG (10) RET 
URNS THE LOGARITHM OF 100 IN B 
ASE 10" 

2120 PRINT: PRINT"IN OTHER WORDS, 
THE POWER TO WHICH 10 MUST BE 
RAISED TO GET 100." 

2130 PRINT : PRINT"LOG IS THE INVER 
SE OF EXP. SO, X=LOG(EXP(X) ) 

II 

2140 GOSUB 5000 : GOSUB 5190 
2150 PRINT "PAINT (X,Y),A,B" 

2160 PRINT :PRINT"THE X AND Y ARE 
SCREEN POS IT IONSTHE A IS THE COLO 
R YOU WANT TO PAINT AND THE B IS 
THE BORDER COLOR YOU WANT THE 
PAINTING TO STOP ON." 

2170 PRINT" LET'S SEE WHAT PAINT C 
AN DO.":PRINT 

2180 GOSUB 5000 : GOSUB 5190 
2190 PRINT "HERE IS THE PROGRAM:" 
2200 PRINT "10 PM0DE3,1 :PCLS:SCREE 
N1 , 0" 

2210 PRINT "20 COLOR 3, 2 : C I R CLE ( 1 2 

8. 96) , 50 30 PAINT (128, 96), 1,3" 

2220 GOSUB 5000 

2230 COLOR 3,2:PMODE 3,1:PCLS:SCR 
EEN1 ,0 

2240 CIRCLE (128, 96), 50, 2: PAINT (12 

8. 96) , 2, 2 

2250 A$="HIT ANY KEY":GOSUB 6000: 
GOSUB 5010 

2260 GOSUB 51 90: PRINT"WE JUST DRE 
W A CIRCLE ON THE SCREEN AND P 
AINTED IT." 

2270 PRINT : PRINT "YOU MUST BE IN 0 
NE OF THE 4 COLOR MODES, EG 

. PM0DE3 OR PMODE 1 TO GET COL 
ORS FROM PAINT." 

2280 GOSUB 5000:G0SUB 5200 
2290 PRINT"PCLS WORKS ON THE GRAP 
HICS SCREEN THE WAY THAT CLS 

WORKS ON THE TEXT SCREEN, AND 
LIKE THE CLS, YOU CAN SPECIFY 
A COLOR." 
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2300 PRINT "WITH PCLS, YOU ONLY HA 
VE 4 COLORS ON EACH SCREEN. 

ON SCREEN1,0 YOU HAVE " 
2310 PRINT "GREEN, YELLOW, BLUE S 
RED": PRINT "ON SCREEN1,1 GIVES YOU 
:":PRINT"BUFF, CYAN, MAGENTA S OR 
ANGE." 

2320 PRINT :PRINT"FOR A DEMO:"; 

2330 GOSUB 5000 

2340 FOR S=0 TO 1 

2350 FOR Y=1 TO 4 

2360 PM0DE3,1 : PCLS Y : SCREEN1 , S 

2370 A$="S="+STR$(S)+" X="+STR$ 

(Y) : GOSUB 6000 

2380 FOR DLY=0 TO 500:NEXT DLY 
2390 NEXT Y,S 
2400 RUN"EXT3" 

5000 PRINT :PRINT" HIT ANY KEY TO C 
ONTINUE"; 

5010 A$=INKEY$:IF A$="" THEN 5010 
5020 RETURN 

5100 CLS : PRINT" ** EXTENDED COMMA 

ND EDIT **":PRINT :RETURN 

5110 CLS: PRINT" ** EXTENDED OPERA 

TOR EXP **": PRINT : RETURN 

5120 CLS:PRINT" ** EXTENDED OPERA 

TOR FIX **": PRINT :RETURN 

5130 CLS: PRINT" * EXTENDED COMMAN 

DS GET/PUT *":PRINT: RETURN 

5140 CLS: PRINT" ** EXTENDED COMMA 

ND H E X $ **" : PRINT : RETURN 

5150 CLS : PRINT" ** EXTENDED FUNCT 

ION INSTR **":PRINT :RETURN 

5160 CLS: PRINT" ** EXTENDED COMMA 

ND LET **":PRINT :RETURN 

5170 CLS : PRINT" ** EXTENDED COMMA 

ND LINE **":PRINT :RETURN 

5180 CLS : PRINT" ** EXTENDED FUNCT 

ION LOG **":PRINT :RETURN 

5190 CLS:PRINT" ** EXTENDED COMMA 

ND PAINT **" SPRINT : RETURN 

5200 CLS: PRINT" ** EXTENDED COMMA 

ND PCLS **":PRINT :RETURN 

6000 L=LEN(A$):L1=110-((L/2)*12): 

LINE (LI -1 2,165 )- (LI + (16*L) +12,1 88 

), PRESET, BF 

6010 XL$=STR$ (LI ) : DRAW"S4; BM"+XL$ 
+",185;" 

6020 FOR X=1 TO L : M= AS C (M I D $ ( A$, X 

, 1 >> 

6030 M=M-31 : I F M>38 THEN M=M-38:G 
OTO 6060 

6040 ON M GOSUB 6080,6090,6100,61 
1 0,61 20,61 30,6140,61 50,61 60,6170, 
61 80,6190,6200,6210,6220,6230,624 
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0,6250,6260,6270,6280,6290,6300,6 

310,6320,6330,6340,6350,6360,6370 

,6380,6390,6400,6410,6420,6430,64 

40,6450 

6050 GOTO 6070 

6060 ON M GOSUB 6460,6470,6480,64 

90,6500,6510,6520,6530,6540,6550, 

6560,6570,6580,6590,6600,6610,662 

0,6630,6640,6650,6660,6670,6680,6 

690,6700 

6070 NEXT X 

6080 DRAW"BR8" : RETURN: • SPACE 
6090 DRAWBR5R2U2L2D2R2U1 5BR10BD1 
5":RETURN: ' ! 

6100 DRAW"BR4BU1 2U4BR4D4BD1 2BR8" : 
RETURN: '" 

6110 DRAWBR4U5NL4NR8U6NU5NL4R4NR 
4NU5D1 1BR8" : RETURN: '# 

6120 DRAW"BR2NH2R8E2U4H2L8H2U4E2R 
8F2BL8NU2D14BR4NU16BR6":RETURN:'$ 

6130 DRAW"E12BL12D1R1U1L1BF12L1U1 
R1D1BR4" :RETURN: '% 

6140 DRAW'BRI 2H12U2E2R6F2D2G10D2F 
2R8NE3BR6": RETURN: '& 

6150 DRAW"BR6BU1 2U4BR1 OBDl 6" : RETU 
RN: ' ' 

6160 DRAW'BRI 2H5U6E58D163R4": RETU 
RN: ' ( 

6170 DRAW"E5U6H5BR1 6BD1 6": RETURN: 

' ) 

6180 DRAW"BU8BR6NL6NH6NU6NE6NR6NF 
6N D 6NG 68 R10BD8": RETURN:'* 

61 90 DRAW"BR6BU8NU5NL5NR5D5BD3BR1 
0":RETURN: '+ 

6200 DRAW"BR4R2U2L2D2BR2NG2BR10" : 
RETURN: ' , 

6210 DRAW"BR3BU8R6BR7BD8" : RETURN: 

I _ 

6220 DRAW"BR3U2R2D2L2BR1 2": RETURN 

. i 

6230 DRAW"U2E12U2BR4BD1 6": RETURN: 

' / 

6240 DRAW"BR2H2U1 2E2R8F2D1 2G2NL8B 
R6":RETURN: '0 

6250 DRAW"BR2R4NR4U16L2G2BD14BR14 
": RETURN : ' 1 

6260 DRAW"BR2NR1 0U2E1 0U2H2L8G2BR1 
6BD1 4" : RETURN : ' 2 

6270 DRAW"BR2NH2R8E2U4H2NL4E2U4H2 
L8G2BD14BR16":RETURN:'3 
6280 DRAW"BR8U1 6G8R1 2BD8BR4" : RETU 
RN: '4 

6290 DRAWBU2F2R8E2U4H2L10U8R12BD 
16BR4":RETURN:'5 

6300 DRAW"BU2NU6F2R8E2U4H2L8U5E3R 



6F3BD1 3BR4" : RETURN: ' 6 

6310 DRAW "BUI 6R1 2D4G1 2BR1 6” :RETUR 

N: '7 

6320 DRAWBU2NU4F2R8E2U4H2L8NG2H2 
U4E2R8F2D4NG2BD1 0BR4": RETURN: ' 8 
6330 DRAWBU3F3R6E3U10H3L6G3D3F3R 
9BR43D7":RETURN: '9 
6340 DRAW"BR7BU3R2U2L2D2BU7R2U2L2 
D2BD10BR9": RETURN: ' : 

6350 DRAW"BR5BU3U2R2D2NG3L2BU8U2R 
2D2L2BD11BR11":RETURN: 

6360 DRAWBR1 2BU2H6E6BD1 43R4" : RET 
URN : ' < 

6370 DRAW"BU6NR10BU5R10BD11BR4":R 
ETURN: ’ = 

6380 DRAW”BU2E6H6BD1 4BR1 6" : RETURN 
: ' > 

6390 DRAW"BR5R2U2L2D2R1BU5U3E3U3H 
2L6G3BD1 3BR1 6": RETURN: '? 

6400 DRAW"BU2NU4F2R8E2U6L8G2E2R8U 
6H2L8G28D143R16":RETURN: 'a 
6410 DRAW" U10NR12E6F6D10BR4":RETU 
RN: ' A 

6420 DRAWNU16R10E2U4H2NL10E2U4H2 
L10BD16BR16":RETURN: 'B 
6430 DRAW"BU3BR1 2G3L6H3U1 0E3R6F3B 
D1 3BR4": RETURN: ' C 

6440 DRAW"U16R9F3D1 0G3L9BR1 6" :RET 
URN: ' D 

6450 DRAW'NRI 2U8NR8U8R1 2BD16BR4" : 
RETURN: ' E 

6460 DRAW"U8NR8U8R12BD16BR4":RETU 
RN: ' F 

6470 DRAWBU5BR8R4D2G3L6H3U10E3R6 
F3D1BD12BR4":RETURN: 'G 
6480 DRAWU8NU8R1 0NU8D8BR6" : RETUR 
N: 'H 

6490 DRAW"BR2R4NR4U1 6NL4R4BR6BD1 6 
": RETURN : 'I 

6500 DRAWBU3F3R3E3U1 3NL9R3BD1 63R 
4":RETURN: ' J 

6510 DRAW"U8NU8E2NF10E6BD16BR4":R 
ETURN: 'K 

6520 DRAW"NU16R12BR4" :RETURN:'L 
6530 DRAW"U16F6E6D16BR4": RETURN: ' 
M 

6540 DRAW"U16D2F1 2NU14D2BR4" :RETU 
RN: ' N 

6550 DRAWBU2NF2U1 2E2R8F2D12G2NL8 
BR6" :RETURN: '0 

6560 DRAW" U16R8F2D4G2L8BD8BR16":R 
ETURN: ' P 

6570 DRAW"BU3NF3U10E3R6F3D10G3NL6 
E1NH2NF3BD1BR6":RETURN:'Q 
6580 DRAW"U16R8F2D4G2L8R2F8BR8":R 
ETURN: ' R 



6590 DRAW"BU3F3R7E2U4H2L8H2U4E2R8 
F2BD143R4": RETURN: 'S 
6600 DRAW"BR8U16NL6R6BR4BD16":RET 
URN: 'T 

6610 DRAWBU3NU13F3R6E3NU13BD3BR4 
": RETURN : ' U 

6620 DR AW" BUI 6D1 0F6E6U1 0BR4BD1 6" : 
RETURN: ' V 

6630 DR AW" NU16E6F6NU168R4": RETURN 
: ' W 

6640 DRAWU2E1 2U2BL1 2D2F12D2BR4": 
RETURN: ' X 

6650 DRAW"BR6U1 0NH6E6BD1 6BR4" :RET 
URN: ' Y 

6660 DRAW'NRI 2U2E1 2U2L1 2BR1 630 1 6" 
: RETURN : 'Z 

6670 D R AW" NR6U 1 6R6BR6BD 16" : RETURN 
: ' l 

6680 DRAW"BU16D2F1 2 D 2BR4" : RETURN : 

•> 

6690 DRAW'BUI 68R2R6D1 6L6BR14" :RET 
URN: ' ] 

6700 DRAW"BR6U16NG6F63D10BR4":RET 
URN: ' 

AFTER RUNNING MEMORY = 11685 
MEMORY REQUIRED = 11138 




10 GOSUB 2400 

20 PRINT "PSET ( X , Y , C ) IS THE SYNTA 
X FOR THE PSET COMMAND. OF COUR 
SE THE X AND Y ARE THE SCREEN LOC 
ATIONSAMD THE C IS THE COLOR." 

30 PRINT "IF YOU REMEMBER THE SET/ 
RESET COMMANDS FROM NON EXTENDE 

D, YOU WILL FIND THAT THE PSE 

T AND PRESET ARE THE SAME, EX 

CEPT THAT THEY ARE ON THE HIGH RE 
S GRAPHICS SCREEN." 

40 PRINr’PSET, SETS JUST ONE OF T 
HE 49,152 POINTS ON THE SCRE 

EN." 

50 GOSUB 2370: GOSUB 2400 
60 PRINT "THIS MAKES HIGH RESOLUTI 
ON GRAPHS AND CHARTS A 8REEZ 

E. " 

70 PRINT : PRINTLINE DRAWINGS FROM 
MATHEMATICAL EQUATIONS IN HIGH R 
ESOLUTION." 
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80 PRINT : PRINT" 10 PM0DE4,1 : POLS : S 
CREEN1 , 1 20 LINE (0,96) -(255/ 

96), PSET 30 FOR X=0 TO 255 ST 
EP 3 40 S=SIN(X)*50:PSET(X 

, 96+S , 5 ) 50 NEXT X" 

90 GOSUB 2370 

100 PM0DE4, 1 :PCLS:SCREEN1,1 
110 LINE(0,96)-(255,96),PSET 
120 FOR X=0 TO 255 STEP 3 
130 S=SIN(X)*50 
140 PSET ( X, 96+S , 5 ) 

150 NEXT X 

160 A$=" HIT ANY KEY”:GOSUB 2480 
170 GOSUB 2380 : GOSUB 2400 
180 PRINT"PRESET RESETS THE POIN 
T TO THE BACKGROUND COLOR." 

190 PRINT : PRINT"1 0 PM0DE4,1 : PCLS1 
: SCREEN1 ,1 20 FOR X = 0 TO 255 

STEP 3 30 S=SIN(X)*50:PRES 

ET (X, 96+S, 5) 40 NEXT X" 

200 GOSUB 2370 

210 PM0DE4,1 :PCLS1 :SCREEN1,1 

220 LINE(0,96)-(255, 96), PRESET 

230 FOR X=0 TO 255 STEP 3:S=SIN(X 

)*50: PRESET (X,96+S):NEXT X 

240 A $ = " H I T ANY KEY":GOSUB 2480:G 

OSUB 2380 : GOSUB 2410 

250 PRINT"PPOINT IS THE HIGH RES 

VERSION OF THE POINT COMMAND OF 

NON- EXTENDED BASIC." 

260 PRINT" IT TEST A SPECIFIC POIN 
T ON THE HIGH RES GRAPHICS SCREEN 
TO SEE IF IT IS SET OR RESET. IF 
IT IS SET, THEN IT RETURNS THE C 
OLOR OF THE POINT." 

270 PR INT" IN THE 4 COLOR MODE, TH 
E COMMANDRETURNS THE COLOR, AS IT 
WILL BE A COLOR, EVEN IF IT IS 
RESET." 

280 GOSUB 2370 : GOS UB 2410 
290 PRINT"LIKE THE POINT COMMAND, 
YOU USE THIS COMMAND TO SEE IF Y 
OUR BOMB OR BULLET HAS HIT IT 

'S MARK. SAMPLE PROGRAM:" 

300 PRINT" 10 PM0DE4,1 :PCLS:SCREEN 
1,1 20 LINE(126,180)-(130,18 

8),PSET,BF" 

310 PRINT"30 X=RND (255) : FOR Y=0 T 
0 190 40 PSET (X,Y,5) :P=PPOINT ( 

X , Y + 1 ) 50 IF P = 5 THEN FOR Z = 0 TO 
25 60 CIRCLE(X,Y),Z:NEXT" 

320 GOSUB 2370 

330 PM0DE4,1 :PCLS:SCREEN1,1 : LINE ( 
126, 188)-(130, 190), PSET, BF:X=RND( 
25)+110:F0R Y=0 TO 1 90: PSET (X, Y,5 
) 
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340 P=PPOINT ( X, Y+1 ) :IF P=5 THEN F 

OR Z=0 TO 25:CIRCLE(X,Y),Z:NEXTZ: 

GOTO 370 

350 NEXT Y 

360 GOTO 330 

370 GOSUB 2420 

380 PRINT "THIS PCLEAR COMMAND LET 
'S YOU CLEAR MORE (OR LESS) GRA 
PHICS PAGES. (THE COMPUTER PCLE 
ARS 4 GRAPHICS PAGES ON POWER 
UP) ." 

390 PRINT"EACH GRAPHICS PAGE TAKE 
S UP 1,536 BYTES OF MEMORY, S 

0 THE MORE PAGES YOU PCLEAR THE 
LESS MEMORY YOU HAVE FOR YOUR 
PROGRAMS" 

400 PRINT" IF YOU NEED MORE MEMORY 
FOR TEXT AND LESS FOR GRAPHI 

CS THEN YOU CAN PCLEAR LESS THAN 
4 PAGES. EG: PCLEAR1"; 

410 GOSUB 2370 : GOSUB 2420 
420 PRINT"NOTE : YOU MUST BE IN PMO 
DE 0 IN ORDER TO DO A PCLE A 

R 1. THE COLOR COMPUTER W 

ILL NOT ALLOW YOU TO PCLE 

ARO DIRECTLY." 

430 PRINT : PR INT" I F YOU PCLEAR 8 ( 
8 IS THE MOST YOU CAN CLEAR) YOU 
HAVE 8 SCREENS WITH PMODES 

0,4 WITH PMODE 1, AND YOU EVE 
N HAVE 2 DIFFERENT SCREENS IN 

PMODE 4" 

440 GOSUB 2370 : GOSUB 2420 

450 PR INT"OK, SO NOW WE KNOW SOME 

THING ABOUT IT, BUT HOW DO WE 

USE DIFFERENT GRAPHICS SCREEN 

S?" 

460 PRINT : PRINT" WELL, IF YOU USE 
PM0DE3, YOU HAVE 2 DIFFERENT G 
RAPHICS SCREENS, AND YOU CA 

N BE DRAWING SOMETHING ON ONE SCR 
EEN WHILE DISPLAYING THE OTHER 
ONE AND SWITCH SCREENS FOR FAS 
T ACTION GRAPHICS." 

470 GOSUB 2370 : GOSUB 2420 
480 PR INT "WE CAN'T DISPLAY IT HER 
E DUE TO LACK OF GRAPHICS MEMO 
RY. IF YOU WANT TO SEE HOW TH 

E SCREEN FUNCTION WORKS, CHE 

C K" 

490 PRINT "SAMPLE PROGRAM #8, (THE 
UNFOLD- ING BOX) IN THE BOOK, GO 
ING AHEAD WITH EXTENDED COLOR 

BASIC." 

500 GOSUB 2370 : GOSUB 2430 

510 PRINT"PCOPY WILL COPY ONE GRA 



PHICS PAGE TO ANOTHER. IF YOU 
HAVE DREW A PICTURE ON PAGE 1 
AND WANT A COPY OF YOUR PICTUR 
E ON PAGE 4, THEN TYPE:" 

520 PRINT" PCOPY 1 TO 4 AND YO 

UR PICTURE WILL BE COPIED 0 

N THE GRAPHICS PAGE 4." 

530 GOSUB 2370 : GOSUB 2430 
540 PRINT " DEMO: ":PRINT" 10 PMODEO, 
1 :PCLS:SCREEN1,1 20 FOR X=1 

TO 100 STEP 10 30 LINECO+X, 

0+X)-(255-X,191-X),PSET":PRINT"40 
NEXT X": PRINT" 50 PMOD E 0, 3 : P C LS : S 
CREEN1,1 60 PCOPY 1 TO 3":PR 

I NT" 70 GOTO 70" 

550 GOSUB 2370 

560 PMODEO, 1 :PCLS:SCREEN1,1 : FOR X 
=1 TO 100 STEP 10:LINEC0+X,0+X)-( 
255-X,191-X),PSET,B:NEXT X: A$="SC 
REEN 0,1":G0SUB 2480 
570 PMODEO, 3 :PCLS:SCREEN1,1 :A$="S 
CREEN 0, 3" : 60S UB 2480:PC0PY 1 TO 
3:A$="PC0PY 1 TO 3":G0SUB 2480:G0 
SUB 2380 
580 GOSUB 2440 

590 PR I NT" PMO D E LETS YOU SELECT W 
HICH GRAPHICS MODE YOU WANT, 

(0-4) AND WHICH GRAPHICS PAGE Y 

OU WANT TO START ON." 

600 PRINT" THE HIGHER THE PMO D E , T 
HE HIGHERTHE RESOLUTION, AND THE 
MORE GRAPHICS PAGES IT WILL RE 
QUIRE." 

610 PRINT "PMODE 0 REQUIRES ONLY 1 
GRAPHICSPAGE, BUT GIVES YOU ONLY 
A BLACK AND WHITE PICTURE W 

ITH 128 WIDE BY 96 HIGH RESOLU 
TION." 

620 GOSUB 2370 : GOSUB 2440 
630 PRINT"PMODE 1 TAKES 2 GRAPHIC 
S PAGES AND ONLY GIVES YOU THE 1 
28 X 96 DOT RESOLUTION, BUT YOU C 
AN HAVE 4 COLORS PER SCREEN, 

WITH TWO SCREENS." 

640 PRINT "PMODE 2 TAKES 2 GRAPHIC 
S PAGES WITH JUST 2 COLORS (BLAC 
K S WHITE) BUT GIVES YOU A 12 

8 X 192 RESOLUTION." 

650 PRINT" PMODE 3 TAKES 4 GRAPHIC 
S PAGES, GIVES YOU 4 COLORS PER S 
CREEN AND 128 X 192 PICTURE RES 
OLUTION"; 

660 GOSUB 2370 : GOSUB 2440 
670 PRINT" PMO D E 4 TAKES 4 GRAPHIC 
S PAGES GIVES YOU JUST 2 COLORS 
BUT HAS A FANTASTIC 256 X 192 PIC 



TURE RESOLUTION." 

680 PRINT : PR INT" I F YOU DON'T KNOW 
WHAT ALL THIS MEANS, IT'S OK, I' 
LL SHOW YOU." 

690 PR INT"WE WILL DRAW A CIRCLE U 
SING EACH OF THE PMODE'S WITH 

A DIAGONAL LINE THROUGH IT 

SO YOU CAN TELL WHAT THE RESO 

LUTIONIS."" 

700 GOSUB 2370 

710 A$="PMODE 0":PM0DE0,1 :GOSUB 7 
70 
720 
70 
730 
70 
740 
70 
750 
70 
760 
770 



A$=" PMODE 1 " : PM0DE1 ,1 : GOSUB 7 



A$="PMODE 



A$=" PMODE 



A$=" PMODE 



2" : PM0DE2,1 
3":PM0DE3,1 
4" : PMO D E4, 1 



GOSUB 7 



GOSUB 7 



GOSUB 7 



GOSUB 2440:G0T0 780 
PCLS:SCREEN1,1 :CIRCLE(128,96) 
,60:LINE(20,20)-(235,170),PSET:60 
SUB 2480 : FOR X=1 TO 1000:NEXT X:R 
ETURN 

780 PR I NT" D I D YOU NOTICE HOW MUCH 
SMOOTHER AND STRAIGHTER 
THE CIRCLE AND LINE APPEARED 

AS WE INCREASED THE PMODE?" 

790 PR INT" I N PMODE 4 IT WAS ALMOS 
T A PERFECT CIRCLE AND A STR 

AINGT LINE. THIS IS BECAUSE WE 
ARE USING MORE DOTS, CALLED PI 

XELS TO DRAW THE LINE WITH." 

800 PRINT "YOU PROBABLY NOTICED TH 
AT SOME OF THE CIRCLES WERE IN C 
OLOR AND SOME WERE BLACK & WHI 
TE." 

810 GOSUB 2370 : GOSUB 2440 
820 PRINT"THE SECOND VARIABLE USE 
D IN THE PMODE COMMAND IS FOR THE 
PAGE YOU WANT TO START YOUR GR 
APHICS ON. EG: PMODE 3,1 TELLS TH 
E COMPUTER THAT YOU WANT TO G 

0 TO PMODE 3 AND YOU WANT TO STAR 
T ON GRAPHICS PAGE 1." 

830 PRINT "SINCE PMODE 3 TAKES 4 G 
RAPHICS PAGES, THE SCREEN WILL T 
AKE UP PAGES 1 THRU 4. IF YOU HA 
D SPECIFIED PMODE 3,3 THEN T 

HE SCREEN WOULD USE PAGES 3 TO 
7." 

840 GOSUB 2370 : GOSUB 2440 
850 PR INT "NOTE: YOU COULD NOT USE 
PMODE 3,3 WITHOUT 
PCLEARING MORE OF 
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THE GRAPHICS PAGES 
WITH THE PCLEAR 
COMMAND." 

860 PRINT : PR I NT " FO R A DETAILED EX 
PL ANAT ION OF THE PMODE COMMAND, 

REFER TO THE EXTENDED BASIC 

MANUAL. " 

870 GOSUB 2370 : GOSUB 2450 
880 PR I NT "PLAY, MUSIC THAT IS. TH 
E COLOR COMPUTER IS A REAL 

MUSICAL INSTRUMENT." 

890 PRINT: PRINT"WE ' LL LOOK AT THE 
COMMAND IN A MINUTE, FIRST LETS 
LISTEN TO WHAT THE COMPUTER C 

AN DO." 

900 GOSUB 2370:G0SUB 2450 

910 CLS : PRINT"TICO-TICO NO FUBA" 

920 A$="03P16L1 6C02BA+02 AG+AB03D C 

02B03CE02G03CEGF+FEDC02B02AGFEDL4 

C" 

930 B$="02P1 6L1 6; E D +E F E L 8 AP 1 6L16E 
D+E;FEL8G+P16L16;ED+EFE03D02BG+ED 
C+;L4C" 

940 C$="L1 6P1 6AG+GFA03L8DP1 6L1 6C0 
2AFEAL803CP1 6L1 6C02B AB01 BO 2 D+ FB F3 
AG+EL803EP16" 

950 D$="L1602P16AG+GFA03L8DP16L16 
C02AFEA03L8CP1 6L1 6C02BABEG+803EDC 
0 2B A" 

960 E$=" P8P8P1601BAG+G02CEG03CEGG 
+L8AFP16L1601BAG+GB02DFB03DGG+L8A 
E" 

970 F$="P16L1 604C03CL804C03L1 6B02 
B03L8BL1 6A02A03AGFD02L8B" 

980 G$="L1 603B02B03L8BL1 6A02A03L8 
AL16A02A03GE02CAGP801L16F+" 

990 H$="G02CEG03CEGG+L8AFP16L1601 
BAG+GB02DFB03DGG+L8AEP16L16" 

1000 I$="L1 601 BAG+" 

1 010 J $ = " L 1 6P8P1 603ED+EFED+EAED+E 
FED+EG+EDEFE04D03BG+EDC+L4C" 

1020 PLAY"T3" : PLAY A$ : PL A Y B$:PLA 
Y C$ : PLA Y B$ 

1030 PLAY D $ : PL A Y F.$:PLAY F$ : PL A Y 
G$ : PLA Y H $ : PLA Y A$ : PLA Y I$:PLAY 
HS : PLAY AS : PLA Y J$:PLAY"02" 

1040 PLAY CS-.PLAY B$ : PLA Y D$ : PLAY 
"P201T1L1A" 

1050 GOSUB 2450 

1060 PRINT"THE SYNTAX FOR PLAY IS 
: PLAY ";CHR$(34);" STRING" 

; CHR$(34) 

1070 PRINT : PRINT"STRING IS AN EXP 
RESSION (PUT IT QUOTATIONS) THAT 
SPECIFIES." 

1080 PRINT "NOTE: A LETTER FROM A 
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TO G OCTAVE: LETTER 0 FOLLOW 

ED BY A NUMBER BETWEEN 

1 8 5" 

1090 PRINT"NOTE LENGHT: LETTER L 
FOLLOWED BY A NUMBE 

R 1-255 TEMPO: LETTER T FOLLOWED 
BY A NUMBER 1 TO 255" 

1100 GOSUB 2370:G0SU8 2450 
1110 PRINT "VOLUME: LETTER V FOLLO 
WED 8 Y A NUMBER BETWEE 

N 1 a 31" 

1120 PR INT"PAUS E : LETTER P FOLLOW 
ED BY A NUMBER BETWEEN 1 

& 255" 

1130 PRINT :PRINT" HERE IS AN EXAMP 
LE:": PRINT" PLAY" ;CHR$( 34); "T3; 02; 
V20;L4;A;B";CHR$(34) 

1140 PRINT :PRINT"WE ARE TELLING T 
HE COMPUTER TO PLAY THE NOTES A 
AND B AT A TEMPO OF 3 IN THE 

SECOND OCTAVE AT A VOLUME 

OF 20 AND A QUARTER NOTE LENGT 
H."; 

1150 GOSUB 2370:G0SUB 2450 
1160 PRINT "YOU CAN ALSO SPECIFY S 
HARPS AND FLATS. TO MAKE A SH 

ARP OF A NOTE, ADD A # TO THE N 
OTE, EG: PL A Y " ; C H R $ ( 34 ) ; " A#" ; C 
H R $ ( 34 ) 

1170 PRINT" FOR A FLAT, ADD A - (M 
INUS SIGN)" 

1180 PRINT" NOTE: THE PLAY COMMAND 
DOES NOT RECOGNIZE THE NOT 

ATION Bff OR C-." 

1190 PRINT :PRINT"THE L (NOTE LENG 
TH) IS 1/NUMBER SO IF YOU SPECIFY 
L4, YOU HAVE A 1/4TH NOTE."; 
1200 GOSUB 2370 : GOSUB 2450 
1210 PRINT" FOR DOTTED NOTES, (NOT 
ES THAT ARE SUPPOSED TO BE INCR 
EASED BY 1/2 THEIR NORMAL LENG 
TH, JUST ADD A DOT AFTER YOUR 

NOTE." 

1220 PRINT : PRINT"NOW THAT YOU HAV 
E HEARD A SONG PLAYED ON THE COL 
OR COMPUTER AND KNOW HOW TO PR 
OGRAM A SONG, LET'S SEE WHAT YOU 
CAN DO." 

1230 PRINT : PRINT" YOUR ASSIGNMENT 
, WRITE A SONG!" 

1240 GOSUB 2370: GOSUB 2460 
1 250 PR I NT " POS IS A FUNCTION THAT 
ALLOWS YOU TO TEST THE CURRENT 
CURSOR POSITION ON THE SCREEN 0 
R PRINTER." 

1260 PRINT"?POS (DEVICE NUMBER):? 



1 270 PRINT" DEVICE NUMBER WILL E IT 
HER BE 0 FOR THE SCREEN OR 

-2 FOR THE PRINTER." 

1 28U PRINT : PRINT "THIS FEATURE CAN 
BE USED TO PREVENT SPLIT WOR 

DS ON THE SCREEN OR PRINTER. 

ii 

1290 60SUB 2370 : GOSUB 2470 

1300 P R I N T " P R I N T USING ENABLES TH 

F CQMPUTERTO PRINT STRIN GS AND NU 
MBERS IN A CUSTOMIZED FORMAT. THI 

S IS ESPECIALLY USEFUL WHEN DE 
ALING WITH DOLLAR VALUES OR ANY 
TYPE OF PRINTOUT THAT REQUIRES A 
CUSTOMIZED FORMAT." 

1310 PRINT"THE SYNTAX FOR PRINT U 
SING IS: PRINT" PRINT USING";C 

HRS (34) ;" FORMAT" ;CHR$( 34);"; ITEM- 
LIST" 

1320 GOSUB 237Q:G0SUB 2470 
1330 PRINT" FORMAT IS A STRING EXP 
RESSION (IT MUST 3E CONTAINED I 
N QUOTES)AND TELLS THE COMPUTER W 
HAT FORMAT TO USE IN PRINTING 

EACH OF THE ITEMS IN THE ITEM-L 
1ST." 

1340 P R I N T " I T CONSIST OF FIELD SP 
ECIFIERS AND OTHER CHARACTERS, A 
ND IS ONE OR ONE SET." 

1350 PRINT "ITEM-LIST IS THE DATA 
TO BE FORMATED AND PRINTED." 

1360 PRINT" NO LEADING OR TRAILING 
BLANKS WILL BE PRINTED EXCEPT 
AS SPECIFIED WITH YOUR FORM 

AT. "; 

1370 GOSUB 2370 : GOSUB 2470 
1380 PRINT "LET'S LOOK AT THE ACTU 
AL USAGE OF PRINT USING. FIRST W 
ITH NUMBERS." 

1390 PRINT "YOU SET THE LENGTH OF 
YOUR NUMERIC FIELD WITH THE 

# SIGNS. ":PRINT 

1400 PRINT "PRINT US ING"; CHR$ (34) ; 
"####"; C HRS (34) 22. 2" 

1410 PRINTUSING"####";22.2 
1420 PRINT: PRINT"FIRST OFF YOU WI 
LL NOTICE THAT THE .2 (THE DECIM 
AL PORTION) OF THE NUMBER WAS NOT 
PRINTED. ":GOSUB 2370:G0SU8 2470 
1430 PR I NT "THAT WAS BECAUSE WE DI 
D NOT SPECIFY A DECIMAL IN OU 

R FORMAT. YOU WILL NOTICE ALSO THA 
T THE NUMBER WAS SPACED OUT FRO 
M THE LEFT SIDE OF THE SCREEN BY 
2 SPACES. OUR FORMAT DECLARED 

II 

1440 PR INT"TH AT WE WERE USING 4 S 



PACES, BUT OUR NUMBER WAS ONLY 
2 DIGITSLONG, THEREFORE WE HAD 2 
LEADINGSPACES. " 

1450 GOSUB 237Q:G0SUB 2470 
1460 P R I N T " T 0 GET A DECIMAL, WE U 
S 6 : PRINT US ING"; CHR$ ( 34) ; " 

###.##";CHR$(34)";22.2" 

1470 PRINTUSING"###.##"; 22. 2 
1480 PRINT : PRINT" WE SPECIFIED 2 D 
ECIMAL PLACES, SO THE COMPUTER W 
ILL PRINT THE TWO DECIMAL PLACES 
. IF WE DID NOT HAVE A DECIMAL, 
THE COMPUTERWOULD PRINT .00 FOR 
THE DECIMAL." 

1490 GOSUB 2370: GOSUB 2470 

1 500 PRINT"PRINT US ING"; CHR$ (34) ; 

"##.##";CHR$(34);";1234.22" 

1510 PRINTUSING"##. ##";1 234. 22 
1 520 PRINT: PRINT"SEE THE % SIGN L 
EADING THE NUMBER? IT'S TELL 

ING US THAT THE NUMBER IS LARG 
ER THAN THE FIELD WE ALLOTED FO 
R IT. IT STILL PRINTS THE NUM 

BER THOUGH." 

1530 PRINT :PRINT" LET'S LOOK AT 'R 
OUNDING OFF'" 

1540 GOSUB 2370: GOSUB 2470 

1550 PRINT"PRINT US ING" ; CHR$ (34) ; 

"###.##"; CHR$( 34) 22. 36789" 

1 560 PRINTUSING "###.##"; 2 2. 36789 
1570 PRINT : PRINT"ANY DECIMAL THAT 
WON'T FIT INTO OUR FORMAT IS AUT 
OMATICALLY ROUNDED OFF TO THE 

NEAREST NUMBER OR DECIMAL. 

IN THE ABOVE EXAMPLE, 22.36789 IS 
CLOSER TO 22.37 THAN IT IS TO 2 
2.36." 

1580 PR INT" SO IT IS ROUNDED OFF T 
0 22.37." 

1590 GOSUB 2370: GOSUB 2470 
1600 PRINT" YOU CAN PLACE YOUR DEC 
IMAL POINTANYWHERE IN THE NUMERIC 
FIELD THAT YOU HAVE ESTABLISHE 
D WITH THE # SIGNS. SO IF YOU WA 
NT TO HAVE 6 DECIMALS, YOU WOULD 
USE ###.######" ETC." 

1610 PRINT" WHEN WE DESCRIBED THE 
SYNTAX OF THE PRINT USING COMMAND 
, WE SAIDPRINT USING FORMAT ITEM- 
LIST." 

1620 PRINT "THE WORD LIST MEANS YO 
U CAN HAVEMORE THAN ONE NUMBER." 
1630 G0SU8 2370 : GOSUB 2470 
1640 PRINT "PRINT US ING"; CHR$ (34) ; 
"###.## ";CHR$(34);";22.2,31 .2,. 

89,987.13" 
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1650 PRINTUSING"###.## ";22.2,31 
.2, .89,987. 13 

1660 PRINT :PRINT" USING COMMAS AS 
DELIMITERS YOU CAN HAVE A LIST 0 
F NUMBERS TO BE PRINTED OUT USI 
NG THE FORMAT YOU HAVE SPECIFIED. 
NOTICE THAT WE ADDED 2 SPACES TO 
OUR FORMAT SO THAT THE NUMBERS H 
AVE SPACES BETWEEN THEM." 

1670 G0SU8 2370 : G0SU8 2470 
1680 PR I NT" I F WE HAVE NUMBERS GRE 
ATER THAN 999, WE CAN ADD COMMAS 
TO SEPERATE THE THOUSANDS F 

ROM EACHOTHER THEREBY MAKING THE 
NUMBER EASIER TO READ.":PRINT 

I 690 PRINT"PRINT US ING" ; CHR$ ( 34) ; 
" #,###,###.##";CHR$( 34 );";1 234567 
.89" 

1700 PRINTUSING" #,###,###.##"; 123 
4567.89 

1710 GOSUB 2370:G0SUB 2470 
1720 PRINT "WHEN YOU PLACE 2 ASTER 
ISKS AT THE BEGINING OF YOUR NU 
MERIC FIELD, ALL UNUSED POSITI 
ONS TO THE LEFT OF THE DECIMAL W 
ILL BE FILLED WITH ASTERISKS. THE 
2 ASTERISKS WILL ALSO ESTABLI 
SH" 

1730 PRINT "TWO MORE POSITIONS IN 
THE NUMERIC FIELD." 

1740 PRINT :PRI NT" PRINT USING";CHR 
$ (34) ;"**####. ##";CHR$ (34 );";1 .22 

II 

1750 PRINTUSING"**####. ##";1 .22 
1760 GOSUB 2370 : GOSUB 2470 
1770 PR INT"NOW LET'S LOOK AT HOW 
WE CAN USEPRINT USING WITH MONEY. 
" : PRINT 

1 780 PRINT" PRINT US ING"; CHR$ (34) ; 
"$###.##"; CHR$( 34) 1 2. 25" 

1790 PRINTUSING" $###.##"; 12. 2 5 
1800 PRINT :PRINT" PUTTING A SINGLE 
$ SIGN AT THE BEGINNING OF YOUR 
NUMERIC FIELD WILL PRINT A DOLLA 
R SIGN. IN THIS CASE THE $ WIL 
L ALWAYS BE AT THE SAME PLACE, L 
EADING YOUR NUMBER." 

1810 GOSUB 2370: GOSUB 2470 
1820 PRINT "IF YOU WANT THE $ SIGN 
TO BE RIGHT UP AGAINST YOUR N 
UMBER, THEN PUT TWO $ SIGNS IN 
YOUR FORMAT. "rPRINT 
1830 PRINT "PRINT U S I N G" ; C H R $ ( 34 ) ; 
"$$#,###.##";CHR$(34);";12.25" 
1840 PRINTUSING "$$#,###. ##"; 1 2. 25 



1850 PRINT :PRINT"THE LEADING SPAC 
ES ARE STILL PRINTED, BUT THE 
$ SIGN IS BUTTED UP AGAINST 

YOUR NUMBER." 

1860 GOSUB 2370 : GOSUB 2470 
1870 PRINT "YOU CAN USE BOTH THE A 
STERISKS AND THE $ SIGN (LIKE IN 
PRINTINGCHECKS) TO FILL THE SPAC 
ES PRECEDING YOUR NUMBER WIT 

H ASTERISKS AND HAVE A $ SIG 

N ON YOUR NUMBER." 

1880 PRINT :PRINT" PRINT USING";CHR 
$( 34 );"**$#, ###,###. ##";CHR$ (34); 
" ; 1 1 . 22 " 

1890 PRINTUSING "**$#, ###,###.##"; 

11.22 

1900 PRINT: PRINT"YOU ONLY NEED ON 
E $ SIGN HERE." 

1910 GOSUB 2370 : GOSUB 2470 
1920 PRINT"WHEN A + IS PLACED AT 
THE BEGINING OF YOUR NUMERI 

C FIELD (OR THE END OF IT) THE N 
UMBER WILL BE SIGNED. EG, POSIT 
IVE NUMBERS WILL HAVE A PLUS A 
ND NEGATIVE NUMBERS WILL HAVE 
A 

1930 PRINT: PRINT"PRINT USING";CHR 
$(34);"+###.## ";CHR$(34);";121,- 
121 " 

1940 PR INTUS ING" +###.## ";121,-12 
1 

1950 PRINT :PRINT"YOU CAN ALSO HAV 
E THE + TRAIL." 

1960 GOSUB 2370 : GOSUB 2470 

1970 PR I NT" PR I NT U S I NG" ; C H R $ ( 34 ) ; 

"###.##+"; CHR$(34);";1 2.4" 

1980 PRINTUSING"###. ##+";12. 4 
1990 PRINT: PRINT"PRINT USING";CHR 
$(34);"###.##+";CHR$(34);";-12.4" 

2000 PRINTUSING" ###.##+ ";-12. 4 
2010 PRINT : PRINT "PLACING A - SIGN 
AT THE END OF YOUR NUMERIC FIEL 
D CAUSES A - TO BE PRINTED A FTE 
R ALL NEGATIVENUMBERS, A SPACE IS 
PRINTED IF THE NUMBER IS POSITI 
VE." 

2020 GOSUB 2370 : GOSUB 2470 
2030 PRINT" IF YOU PUT FOUR UP ARR 
OWS IN THE NUMERIC FIELD, THEN 
THE NUMBER WILL BE PRINTED I 

N THE EXPONENTIAL FORM: PRINT 
2040 PRINT "PRINT US ING"; CHR$ ( 34) ; 
"###.# ";CHR$(34);";12300" 

2050 PRINTUSING"###.# ";12300 
2060 PRINT :PRINT"YOU CAN USE A ST 
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of the hill! 



It’s a jungle out there, but the latest news 
on the Color Computer grapevine is that, above the swirling mists of 
confusion, more and more people are 
discovering the Rainbow. * 

Now in its third year, the Rainbow 
has become the standard by which all 
other Color Computer magazines are 
compared. And no wonder! The Rainbow 
towers above the crowd, now offering 
more than 300 pages each month, 
including more than two dozen type-in- 
and-run program listings, a host of articles and 
in excess of 30 hardware and software product 
reviews. 

We lead the pack in Color Computer publica- 
tions and are devoted exclusively to the TRS-80 " 

Color, TDP-100 and Dragon-32. We made our 
climb to the top by continually offering the best 
and the most by such well-known authors and 




innovators as Bob Albrecht and Don In- 
man, and games from top programmers 
like Chris Latham, Fred Scerbo and 
John Fraysse. The Rainbow offers the 
most in entertainment and education, 
home uses, technical details and hard- 
ware projects, tutorials, utilities, 
graphics and special features like Rainbow 
Scoreboard and our new CoCo Clubs section. 

For only $28 a year, you get the keys to all 
the secrets locked in your CoCo! 

Are you searching through the jungle of 
claims and clamor? Climb above it all. Look up. 
Find the Rainbow. 

(5) Registered trademark of Faisoh me 
(8) Registered trademark me Tandy Corp,’ 
© 1983 the Rainbow 



the Rainbow 9529 U.S. Highway 42 
502/228-4492 P.O. Box 209 

Prospect, Ky. 40059 

YES! Sign me up for a year (12 issues) of the RAINBOW. 

Name 

Address 

City State Zip. 

□ Payment Enclosed 

Charge □ VISA D MasterCard □ American Express 

My Account# Interbank# (MC only). 

Signature Card Expiration Date . 



l^jR-5- 




Subscriptions to the RAINBOW are 
$28 a year in the United States. 

Canadian and Mexican rate 
U.S. $35. surface rate to other 
countries U.S. $65; air rate ^ 

OaV/ 



U S $100. All subscriptions 
begin with the current 
issue. Please allow 
up to 5-6 weeks 
for first copy. 
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RING VARIABLE A$YOUR FORMAT ALSO. 

II 

2070 GOSUB 2370:G0SUB 2470 
2080 PRINT " US=" ;CHRS(34);"$S#,### 
CHR$(34) 

2090 PRINT" PRINTUSINGU$;12. 13" :PR 
I NTUS I NG" $$#,###. ##";1 2. 1 3 
2100 PRINT: PRINT"WE DIDN'T USE SP 
ACES BETWEEN THE WORDS PRINT A 
ND USING OR BETWEEN USING AND 



US. 


U 


P UNTIL NOW WE HAVE BE 


EN 


SH 


OWING 


THE SPA 


CES BECAUSE 


IT 


IS 


EAS 
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ER TO READ 


, BUT THEY ARE 


NO 


T RE 


QUIRED." 
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GOSUB 2370: 


GOSUB 2470 
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PRINT "YOU C 


AN ALSO USE 


PR 


INT 


USI 


NG TO FORMAT 


THE PRINTOUT 


OF 


STRI 


N 


GS. TO SPEC 


IFY THE FIEL 


D 


LEN 


GTH 


0 


F A STRING 


, YOU USE TH 


E 


% S 


IGN. 


II 










2130 




PRINT : PRINT 


"PRINT USING 


ii . 
/ 


CHR 


$(34 


) 


.ny 7" • C 


HR $ (34) ; " ; " ; 


CHRS ( 


34); 


II 


COMPUTER"; C 


HRS (34) 






2140 




PRINTUSING" 


% %" ; " COM 


PUTER 


" : PR 


I 


NT 








21 50 




PRINT" YOU S 


EE THE WORD 


COMPU 


TER 


I 


S A BIT LONGER THAN TH 


E 


FIE 


LD W 


E 


SPECIFI 


ED, THEREFOR 


E 


ONL 


Y TH 


E 


LEFT PORTION OF THE 


WORD 


WHIC 


H 


FITS OUR 


FIELD IS PRI 


NTED. 



>• . 
/ 



2160 


GOSUB 2370 


: GOSUB 


2470 




2170 


PR I NT " YOU 


CAN COMBINE STRI 


NG 


AND 

II 


NUMER 


IC FIEL 


DS TOGETH 


ER 


2180 


PRINT"U$=" 


CHRS (34 


) ; " % 


% 


$$#. ##"; CHRS (34 


) : PRINT 


"PRINT US 


IN 


G US; 


"CHRS (34); 


"DEBT"; 


CHRS (34) ; 


M . 
/ 


12.32 


II 








2190 


PRINTUSING 


"% 


% $$#.##" 


. '< 
/ 


DEBT" 


; 1 2 . 32 








2200 


PRINT : PRINT "HERE 


WE HAVE COM 


BINED 


A FIELD 


FOR ST 


RING DATA 


( 


DEBT) 


AND FOR 


NUMERIC 


DATA TO 


BE 


PRINTED AS MONEY. THE TOTAL 


LE 


NGTH 


OF THE FI 


ELD IS 


LIMITED ONL 


Y BY 


THE 255 


CHAR. 


LIMIT OF 


AN 



INPUT." 

2210 GOSUB 2370 : GOSUB 2470 
2220 PR INT"WHEN PRINTING A CHECK 
OR MAKING A LIST OF NAMES, IT MAY 
BE USEFUL TO GET JUST THE S 

INGLE CHARACTER ON THE LEFT OF 
A STRING. (HIS INITIALS)" 

2230 PRINT "THE ! SIGN LET'S YOU D 
0 THIS IF THE ENTIRE NAME ISN'T C 
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ONTAINED IN ONE VARIABLE." 

2240 PRINT : PRINT" FOR AN EXAMPLE:" 

2250 GOSUB 2370:G0SUB 2470 

2260 PRINT "U$="CHR$(34);"!";CHR$( 

34) 

2270 PRINT" INPUT ";CHR$(34);" ENTER 
YOUR FIRST NAME";CHR$(34)";FN$" 
2280 PRINT "PRINTUSINGU$;FN$" 

2290 PRINT :PRINT"THE FIRST NAME M 
UST BE IN A VARIABLE BY ITSEL 

F, THE MIDDLE NAME (IF USED) MUS 
T BE IN A VARIABLE BY ITSELF 

AND THE LAST NAME MUST BE IN A SE 
PERATE VARIABLE." 

2300 GOSUB 2370 : GOSUB 2470 
2310 PRINT "WRITE THIS SHORT PROGR 
AM AND YOU CAN EXPERIMENT WITH 

THE PRINT USING COMMAND." 

2320 PRINT"1 0 INPUT"; CHR$ (34) ; "EN 
TER F0RMAT";CHR$(34);"; FM$ 

2330 PRINT"20 INPUT"; CHR$ (34) ; "EN 
TER NUMBER ";CHR$(34);";N" 

2340 PRINT" 30 PR INTUS ING FM$; N" 
2350 PRINT "40 GOTO 10 
2360 RUN"EXT4" 

2370 PRINT: PRINT"HIT ANY KEY TO C 
ONTINUE"; 

2380 A$=INKEY$: IF A$="" THEN 2380 
2390 RETURN 

2400 CLS:PRINT" *EXTENDED COMMAND 
PSET/PRESET*":PRINT :RETURN 
2410 C LS : PR I NT" ** EXTENDED COMMA 
ND PPOINT **":PRINT :RETURN 
2420 CLS: PRINT" ** EXTENDED COMMA 
ND PCLEAR **":PRINT :RETURN 
2430 CLS: PRINT" ** EXTENDED COMMA 
ND PCOPY **": PRINT: RETURN 
2440 CLS: PRINT" ** EXTENDED COMMA 
ND PMODE **": PRINT: RETURN 
2450 CLS : PR INT" ** EXTENDED COMMA 
ND PLAY **":PRINT zRETURN 
2460 CLS : PRINT" ** EXTENDED COMMA 
ND POS **":PRINT :RETURN 
2470 CLS: PRINT" *EXTENDED COMMAND 
PRINT USING*" :PRINT :RETURN 
2480 L=LEN(A$) :L1=110-((L/2)*12) : 
LINE(L1-12,165)-(L1+(16*L)+12,188 
), PRESET, BF 

2490 XL$=STR$ (LI ) : DRAW"S4; BM"+XL$ 
+",185;" 

2500 FOR X=1 TO L : M= AS C ( M I D$ ( AS, X 

,D) 

2510 M=M-31 : I F M>38 THEN M=M-38:G 
OTO 2540 



2520 ON M GOSUB 2560,2570,2580,25 
90,2600,2610,2620,2630,2640,2650, 
2660,2670,2680,2690,2700,2710,272 
0,2730,2740,2750,2760,2770,2780,2 
790,2800,2810,2820,2830,2840,2850 
,2860,2870,2880,2890,2900,2910,29 
20,2930 

2530 GOTO 2550 

2540 ON M GOSUB 2940,2950,2960,29 

70,2980,2990,3000,3010,3020,3030, 

3040,3050,3060,3070,3080,3090,310 

0,3110,31 20,3130,3140,31 50,3160,3 

170,3180 

2550 NEXT X 

2560 DRAW"BR8":RETURN: 'SPACE 
2570 DRAW"BR5R2U2L2D2R1U15BR10BD1 
5":RETURN: ' ! 

2580 DRAW"BR4BU12U4BR4D4BD1 2BR8" : 
RETURN: ' " 

2 590 DRAWBR4U5NL4NR8U6NU5NL4R4NR 
4NU5D11BR8" :RETURN: '# 

2600 DRAWBR2NH2R8E2U4H2L8H2U4E2R 
8F2BL8NU2D14BR4NU16BR6": RETURN: '$ 

261 0 DRAW’El 2BL1 2D1R1U1L1BF12L1U1 
R1 D1BR4":RETURN: '% 

2620 DRAW"BR12H12U2E2R6F2D2G10D2F 
2R8NE3BR6" :RETURN: '& 

2 630 DR AWBR6BU1 2U4BR1 0BD1 6" : RETU 
RN: ' ' 

2640 DRAW'BRl 2H5U6E5BD1 6BR4" : RETU 
RN: ' ( 

2650 DRAW" E5U6H5BR16BD1 6": RETURN: 
' ) 

2660 DRAWBU8BR6NL6NH6NU6NE6NR6NF 
6ND6NG6BR10BD8": RETURN: '* 

2670 DRAW"BR6BU8NU5NL5NR5D5BD3BR1 
0":RETURN: '+ 

2680 DRAW"BR4R2U2L2D2BR2NG2BR10": 
RETURN: 

2690 DRAW"BR3BU8R6BR7BD8": RETURN: 

1 _ 

2 700 DRAWBR3U2R2D2L2BR1 2": RETURN 

. i 

2710 DRAW"U2E12U2BR4BD16":RETURN: 

' / 

2720 DRAWBR2H2U12E2R8F2D1 2G2NL8B 
R6":RETURN: '0 

2730 DRAW"BR2R4NR4U1 6L2G2BD1 4BR1 4 
" : RETURN: ' 1 

2740 DRAW"BR2NR10U2E10U2H2L8G2BR1 
6BD1 4" : RETURN : '2 

2750 DRAW"BR2NH2R8E2U4H2NL4E2U4H2 
L8G2BD14BR 16": RETURN: '3 
2760 DRAW"BR8U16G8R12BD8BR4":RETU 
RN: '4 



2770 DRAWBU2F2R8E2U4H2L1 0U8R12BD 
16BR4" :RETURN: '5 

2780 DRAWBU2NU6F2R8E2U4H2L10U5E3 
R6F3BD13BR4": RETURN: '6 
2790 DRAW"BU16R12D4G12BR16":RETUR 
N: '7 

2800 DRAW"BU2NU4F2R8E2U4H2L8NG2H2 
U4E2R8F2D4NG2BD10BR4":RETURN:'8 
2810 DRAW"BU3F3R6E3U10H3L6G3D3F3R 
9BR4BD7":RETURN: '9 
2820 DRAW"BR7BU3R2U2L2D2BU7R2U2L2 
D2BD10BR9": RETURN: ' : 

2830 DRAW"BR5BU3U2R2D2NG3L2BU8U2R 
2D2L2BD11BR11":RETURN: 

2840 DRAW" BR12BU2H6E6BD14BR4": RET 
URN: '< 

2850 DRAW"BU6NR10BU5R10BD11BR4":R 
ETURN: ' = 

2860 DRAW"BU2E6H6BD14BR1 6": RETURN 
: ' > 

2870 DRAW"BR5R2U2L2D2R1BU5U3E3U3H 
2L6G3BD13BR 16": RETURN: '? 

2880 DRAW"BU2NU4F2R8E2U6L8G2E2R8U 
6H2L8G2BD14BR 16": RETURN: '3 
2890 DRAW"U10NR12E6F6D10BR4":RETU 
r N ; 1 A 

2900 DRAWNU1 6R1 0E2U4H2NL1 0E2U4H2 
L10BD16BR16":RETURN: 'B 
2910 DRAWBU3BR12G3L6H3U10E3R6F3B 
D 1 3BR4" : RETURN : ' C 

2920 DRAW"U16R9F3D10G3L9BR16" :RET 
URN: ' D 

2930 DRAW'NRI 2U8NR8U8R1 2BD1 6BR4" : 
RETURN: 'E 

2940 DRAW"U8NR8U8R12BD16BR4" : RETU 
RN: ' F 

2950 DRAW"BU5BR8R4D2G3L6H3U10E3R6 
F3D1BD12BR4":RETURN: !G 
2960 DRAW"U8NU8R10NU8D8BR6":RETUR 
N: 'H 

2970 DRAW"BR2R4NR4U16NL4R4BR6BD16 
": RETURN : 'I 

2980 DRAW" BU3F3R3E3U13NL9R3BD16BR 
4":RETURN: ' J 

2990 DRAW"U8NU8E2NF10E6BD16BR4":R 
ETURN: ' K 

3000 DRAWNU16R1 2BR4": RETURN: 'L 
3010 DRAW"U16F6E6D16BR4" ’.RETURN: • 
M 

3020 DRAW"U16;M+1 2, +1 6; NU1 6BR4" : R 
ETURN: 'N 

3030 DRAW"BU2NF2U1 2E2R8F2D1 2G2NL8 
BR6":RETURN: '0 

3040 DRAW"U16R8F2D4G2L8BD8BR16" :R 
ETURN: • P 

3050 DRAWBU3NF3U10E3R6F3D10G3NL6 
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E1NH2NF3BD1BR6":RETURN:'Q 

3060 DRAW'UI 6R8F2D4G2L8R2F8BR8" : R 

ETURN: ' R 

3070 DRAW"BU3F3R7E2U4H2L8H2U4E2R8 
F2BD14BR4" :RETURN: 'S 
3080 DRAW"BR8U1 6NL6R6BR4BD1 6": RET 
URN: 'T 

3090 DRAW" BU3NU13F3R6E3NU1 3BD3BR4 
RETURN : 'U 

3100 DRAWBU16D10F6E6U10BR4BD16": 
RETURN: ' V 

3110 DRAW"NU16E6F6NU16BR4": RETURN 
: 'W 

312 0 DRAWU2E1 2U2BL1 2D2F1 2D2BR4": 
RETURN: ' X 

3130 DRAW"BR6U10NH6E68D16BR4":RET 
URN: ' Y 

3140 DRAW'NRl 2U2E1 2U2L1 2BR16BD16" 
: RETURN: 1 Z 

3150 DRAW"NR6U16R6BR6BD1 6" -.RETURN 
: ' L 

3160 DRAW’BUI 6D2F1 2D2BR4" : RETURN : 

•> 

31 70 DRAWBUI 6BR2R6D1 6L6BR1 4" : RET 
URN: '] 

3180 DRAW"BR6U16NG6F6BD10BR4" :RET 
URN: ' 



Letters 

Don, 

I have several programs to send CW 
(Morse Code) on amateur radio. ( Re- 
ceive is a more complicated job; if 
anyone is doing it with CoCo software 
alone, I would like to hear from them. 
Also you might find a percentage of 
your members are hams.) 

These "send" programs use the casset- 
te off-on plug to key the transmitter. 
Some authors have written that the 
CoCo relay is very light duty, not 
intended for this purpose. My relay 

sticks before long above 20 wpm. 

Question: Has anyone heard of instal- 

ling a heavier duty relay in the cas- 
sette off-on output? Could the club 

members experiement? 

Justin B. Snyder, 403 North Ave., 
Lake Bluff, Illinois 60044 

5)05) QS 8)3 3 3 a) a) a) a) a) a) 03 3333333333333333333a)a)a) 

Dear Sir, 

I want to do some modifications 
to my CoCo and Color T.V. set 

in order to improve the display. 
I read the article. Color Com- 
puter Display Interference July/ 
August Newsletter Page 41, but 
my T.V., manufactured in Feb- 
ruary of 1983, does not have 
75-300 Ohm switch. As I do 
not currently use the T.V. set 
for T.V. reception, it seems 
to me that the T.V. RF could 

be bypassed completely, giving 
me, in effect, a color monitor 
with sound. 
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R R O <3 R A M 


l_ OO R T I M 
RSB AS I C 


E I N SEC 

TSCB AS I c 


INTEGER LOOP 


RS LOOP 


FP LOOP 


INT LOOP 


10 FOR X%=1 TO 5000 „ , 


30 NEXT X% 






J . 1 


FLOATING POINT LOOP 






10 FOR X= 1 TO 5000 


50 NEXT X 


n . \ 


8.6 




AODITION 
20 A%*10+10 


RS LOOP 


FP LOOP 
17.8 


INT LOOP 
12.1 


20 A= 1 0* 1 0 


43 . 5 


19.5 


13.8 


20 A=1 0 . +1 0 . 


44.1 


20.5 


14.8 


SUBTRACTION , . 


o 

i 

o 

II 

< 

o 

CM 


— 


: / . o 


i C. . o 


20 A=1 0-1 0 


45.0 


18.6 


12.8 


20 A= 1 0 . - I 0 . 


45.3 


20.3 


14.5 


MULTIPLICATION 
20 A%= 10*10 


.... 


18.4 


12.8 


20 A=1 0*1 0 


48.0 


20.0 


14.5 


20 A= 1 0 . * 1 0 . 


48.7 


58.7 


53 . 0 


O I V I S I ON . 


20 A%= 10/10 


— 


23.0 


17.4 


23 A= 1 0/ 1 0 


54.5 


25.2 


19.5 


20 A= 1 0 . / 1 0 . 


55.2 


60.0 


54 . 0 


♦TIMES TAKEN WITH WRISTWATCH CHRONOGRAPH 
♦♦RADIO SHACK WILL NOT SPECIFY INTEGER 
♦♦RADIO SHACK HAS 3 SIGNIFICANT DIGITS 

♦♦♦XSASIC (FLOATING POINT) HAS 16.8 SIGNIFICANT DIGI 


TS 


% X8ASIC (INTEGER! 




FIG. A 







Bobby Joe Harrison, 107 Oakhurst, 
El Dorado, AR 71730. 



f 



However, as the CoCo produces 
an NTSC signal in the modulator 
to send to an NTSC T.V. set, 
it may not be as simple as 
it sounds. Someone in the club 
may be able to help me with 
this. 

What I envisage, is to by-pass 
the CoCo modulator, unplug the 

Continued on Page 100 
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NEW! 

ALL OTHER SPACE GAME GRAPHICS 
ARE NOW OBSOLETE ! 

WE HAVE DEVELOPED 
THE COLORTROLLI 

Always fully controllad colors agalnet^ths 
black of spsosl ^ x 

STELLAR SEARCH 

Tape $27.95, Disk $30.95 

The largest and best qraphics adventure 
ever. Graphics like color paintings! As 
Captain of the Enterprise you must estab- 
lish contact with an unknown race while the 
enemy tries to stop you. A total of over 
86 K in 4 parts for 3?K extended, giving a 
variety of game experience! 

CRYSTAL REVENGE 

Tape $18.95, Disk $20.95 
An action arcade game where you defend your 
Homeworld from the Robot Ships. You can 
win only if you plan your defense. See 
reviews Rainbow -r April, and tC N - Sept. 

1983. 16K extended. 

r&. V^/ 



ISSUES 



r-j 



I Excellent Graphics and Sound! 

RAINBOwf 

HI RES Space War game. 

The first fully controlled color in PMODE 4! 
You must defend the CRYSTAL HOME world 
from the robot attackers. Planet 
and multicolor attackers remain ffrxCl 
the same color every game. 



BASIC MANUAL vW* 
FOR THE COCO! 

TOP DOWN BASIC 

by Ken Skier 

An excellent introduction to structured 
BASIC written specifically for the color 
computer. Carefully structured programs 
are a must for advanced BASIC programming. 
$14.95 



ASSEMBLY LANGUAGE GRAPHICS 
for the TRS-80 Color Computer 
by DON & KURT INMAN 

280 pages $14.95 ♦ SI 25 postage & handling 

6809 ASSEMBLY LANGUAGE 
PROGRAMING by LEVENTHAL...$ 18.95 

EDTASM+ Radio Shack ROM Pack Assembler $40.95 
with purchase of either book (regular price $49.95) 
This is an excellent full featured assembler, monitor 
and editor. We also are including a write up on 
procedures for using the book with this assembler. 

NEW FOR OS-9 4— 

NEW BASIC 09 BOOK 
THE OFFICIAL BASIC 09 
TOUR GUIDE 

$18.95 



OS >9 UTILITIES 
DISASSEMBLER-9 

Provides disassembly of OS-9 machine 
language programs Including OS-g 
system calls. 

Available at a reasonable price-. ■ 

$25.95 



TRANSFER-9 

Transfer files between OS-9 and RSDOS. 
Allows editing and creation of files on 
VIP Writer or Telewriter 64. 

ASCII machine language files transfered 
In both directions. 

On two disks at a reasonable price-. • 

$23.95 



Both of the above only $44.95 



VISA <S MASTER CHARGE ACCEPTED 
tele. (215) 682-6855 
Software Authors Wanted-Highest Royalties Paid 



$1.25 Per Order 
Postage & 
Handling 

All Orders Receive 
10% Voucher On Order 

PA Res lnciude6%Tax 



OWL-WARE 

P.O. Box 116N 
Mertztown. PA. 
19539 

DEALERS INQUIRIES INVITED 



Continued from Page 98 

coaxial cable that goes from the RF 
box to a board in the T.V. set, at 
the board end, and connect, with 
a coaxial cable, the computer to the 
T.V. set at the point where the RF 
coaxial was un-plugged. If anybody 
is able to translate that and is able 
to assist, I would greatly appreciate 
it. 

I can be contacted at: Ray S. Preston, 
P.0. Box 122, Rarotonga, Cook Islands 
NEW ZEALAND 

3333333333333333333 3 3 3 3 3 333333333333333 
Dear Ron, 

I've been a member for almost a year 
and enjoy very much receiving the 
club magazine. In fact I enjoy it so 
much I thing it would be nice to have 
an auxialiary ICCC, Inc. here in the 
Mesa, AZ area. As a proposal, I feel 
having a meeting every two months 
to discuss the contents of the mag- 
azine, ask questions, and review what 
needs to be voted on would be ideal. 
This should also be a good way to 
get people more active in the club, 
and get questions answered that other- 
wise would go unanswered. Could you 
send me information on your thoughts, 
and if you approve, on how best to 
do this. I'll be looking forward to 
your answer, thank you. 

Bob Hauer, 1414 E. 3 PI., Mesa, AZ 
85203 

EDITOR'S NOTE; The secretary talked 
about this last issue in his report. 
I think that this a very worthwhile 
subject to persue; therefore, we are 
voting on it in this newsletter. 
333333333333333333333333333333333333333 
NOT E£ N0TE£ N0TE£ I found Russ's 
orginal letter and here is the exact 
quote from it: 

"... Some of my friends have said 
I should buy an IBM PC and then 
I would have what I want. I don't 
know if that is true. I have a B80 
Burroughs mini computer at my office. 
It has been there 5 years, never 
worked and never will. We are in 



a law suit and it looks like my 

$38,000.00 (with dual hard disc) will 
end up as a planter in my back yard." 

I love it when people think the CoCo 
is better than the IBM or Burroughs 
com puters. 

333333333333333333333333333333333333333 
Hey Ron, 

Here's a problem I had that might 
save other members some time, money, 
and frustration. 

When I first got my CoCo the desk 
I used was only big enough to hold 
my CoCo and my 19 inch TV and no 
room for my cassette recorder. So 
I placed it on top of the T.V. i im- 
mediately started getting 1/0 errors. 

I thought it was because I was using 
a Non-R.S. recorder so I laid out 
the bucks to get a CCR-81. My 1/0 
problems cleared up some, but not 
enough to live with. I had, by then, 
become a member of the ICCC, Inc. 
and read Leslie Green's piece in the 
newsletter Volume 2, #4 page 20 about 
turning the recorder upside down. 
Which worked, but turning the record- 
er over every time I wanted to olad 



er over every time I wanted to load 
a program wasn't my idea of proper 
operation. Although it did solve my 
problems in a round about way. See 
everytime I turned the recorder over 
I took it off of the T.V. and held 

it in my hand. All of a sudden the 
light bulb went on in my head and 
shed some light on the problem. 

I took my CoCo, put it in my lap, 

put the recorder on the desk (right 
side up) and tried to load a program 
and all of my programs loaded the 
first time. For some reason, the re- 
corder will not work on top of the 
T.V., but it works fine sitting beside 
it. I now have a slightly bigger desk 
(which I moved from another room 
in the house) and my tapes load fine. 

I have not seen an 1/0 error in a 

few months. 
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COCO & T.I. COLOR MONITOR 



by Ed Margulles 

This article explains how to free- 
up your CoCo's television for T.V. 
viewing by replacing it with a Color 
monitor. I own a Texas Instruments 
monitor and have developed a straight 
forward connector for it. 

The T.I. Color monitor comes with 
a 5-pin DIN cable that branches off 
to a mini mic plugCfor audio input 
on back of monitor), and an RCA type 
phono plugCfor video input on back 
of monitor). The 5-pin DIN plug was 
meant to connect to the back of a 
T.I. home computer, and as you know, 
the Color Computer has no such con- 
nector for T.V. output. Rather than 
chopping up this cable, there is a 
simple way of connecting a DIN socket 
on the computer for quick plugging 
and unplugging when it's needed. 

you may wonder why we don't just 
make an RCA/DIN plug adapter - this 
would be great, but the monitor is 
not looking for radio frequency like 
a television, so we have to bypass 
the RF modulator in the CoCo to get 
a direct audio S video signal (and 
separate them for the monitor as well). 

Get a 5-pin DIN socketCchassis mount 
tupe - RS ff 274-005) and affix it 
to the back of your CoCo's cover 
as pictured in Figure 1. I used my 



pencil soldering iron to burn a hole 
in the cover little by little until 
I had a perfect fit for fear that a 
drill bit would crack the plastic. 
Then I used the socket as a template 
to burn two tiny "starter" impressions 
for the socket bolt holes. I used 
a tiny brad as a "bit" for my drill 
for the socket bolt holesCthe friction 
burned the tiny holes with no worry 
of cracking the cover). Go ahead 
and bolt the socket on as pictured 
in Figure 1. 

Figure 2 shows where to solder on 
the three miniature alligator clips 
(really cheap at RS) with resin core 
solder and a small gun or pencil iron. 
The reason I am suggesting clips is 
so you can completely remove the 
cover and clips if you have to work 
on the insides of your computer for 
another project. I wrapped the loose 
leads around the closest cover screw 
post to keep the wires from flopping 
around and pulling away from the 
socket connecting pins. 

Attach the clips as outlined in Figure 
3. It's best to keep the clips as 
vertical as possible so they don't 
touch any other contacts. Once these 
connections are made, you can put 
the cover back on and plug your mon- 
itor directly into the DIN socket. 
I'm sure that experimentation will 
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° Figure Two ° 



VIEW OF 5-PIN DIN SOCKET FROM INSIDE COVER 




To Position 
THREE 




produce results for like monitors and 
similar cables... Now the kids can 
watch T.V. while you hack away or 

(bntlnued from Page 100 

So, if you camp for room and have 
your recorder on top of your T.V. 
and you are getting I/O errors, MOVE 
THE RECORDER. If you still have 
problems, then turn the recorder over 
and that should cure the problem. 
Of course, make sure your copy of 
the program is good, your tape is 
good, & you don't have a bug in the 
program. Also be sure the volume 
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vice versa! Total cost is less than 
$2.50 for the interface and should 
take about 30 minutes to complete. 



is set right (Normally high as it 
will go). 

Rick Bullon 

3 5)33335)33335)333333333333333333330333333 
We are receiving very little reader 
participation on these letters. If this 
column is to work, we need some 
of our other members that are experts 
to write in and answer these members' 
questions. 
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THIS N THAT 



The BIG NEWS this month is that OS-9 has 
finally arrived for the Color Computer. 

I The ASTOUNDING part of the Radio Shack 
I OS-9 Package, besides the price, is the 
DIXIJManMTCN. You 'Old Time Radio Shack 
I Followers' will not believe what you see. 

I Jon Shirley has been telling us that the 
main reason for the "lack" of 
I documentation with a lot of their 
(products was the restrictions placed on 
| releasing that information by MLcroeaft; I 



OS-9 on the COLOR COMPUTER 



One of the "Operating Systems of the 
Future" is now available for the "little 
old Color Computer"; OS-9. Freely 
translated, OS-9 means "Operating System 
for the 6809" (OS-9 is new being written 
for the 68000, also). Since it is fairly 
obvious that UNIX and "UNIX-Type" 
Operating Systems will be running on just 
about every computer to come out in the 
next few years, a whole new language is 
beginning to appear on the horizon. 



Polar Computer OS-9; the Package 

We had been running a preliminary release 
of OS-9 on the Color Computer for a few 
weeks, and received the "Official Radio 
Shack" version for Review a couple of 
days ago. To put it mildly, this package 
is IMPRESSIVE1 For $69.95 (Radio Shack 
Catalog Number 26-3030), you receive a 9 
1/2" x 7 5/8" x 2" package containing 4 
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Graphs 

by Lee Maddox 

If a primary use of your home com- 
puter is to occupy the younger mem- 
bers of the family or to aide in their 
education, you might give this program 
from Computer Island a try. 

I found, while viewing GRAPHS TUTOR, 
that it answered questions that my 
own children might ask while studying 
graphs. So many times we can answer 
the questions, but visual aids help 
so much in our explanation. With this 
program you see the information, and 
it is presented in a way that kids 
and oldfolk alike can easily under- 
stand. 

The program gives a brief explanation 
of the major graph types and then 
gives random values to plot as exam- 
ples. One of the most interesting as- 
pects of the program is the ability 
to pick a short quiz to test your 

own knowledge of the subject. Versa- 
tility is a plus, if you don't do well 
on the test, you are able to go back, 
review, and begin again. 

I must confess, at first I thought 
"this is a little simple", but honestly 
this program is for children. While 
showing the GRAPHS TUTOR to my 
kids I realized that not only were 
we learning, we were having fun. 
The graphics are good, the information 
is correct, and the versatility allows 
for enjoyment. 

As an "oldtimer" once told me, "A 

day without new knowledge is a day 
wasted". We' did not waste a day 

and had some fun as well. Try it, 

GRAPHS TUTOR , from Computer Island, 
227 Hampton Green, Staten Island, 
N.Y. 10312 for $19.95 and requires 
32K Extended Color Basic. 



I think 




News Products 

National Research Group, Inc announced 
a new product called "Scan-Out". It 
is a RS-232 selector switch and a 
status indicator, all in one. Scan- 
Out connects your CoCo with other 
TRS-80\ peripheral devices. * It will 
monitor the incoming and outgoing 
data (txd and rxd). This helps test 
for malfunctions. Their introductory 
price is $24.95 and will work on 
all the Color Computers including 
CoCo 2 and Micro Color Computer. 
*****★*****************************+' 




Automatic Micro annouces 2 new prod- 
ucts: H C — 1 Home Commander and RC- 

100 Remote Control Relay Interface. 



HC-1 can control virtually every elec- 
trical device in the home. An internal 
memory and real-time clock make the 
Home Commander to have stand-alone 
operation, leaving your equipment 
free to perform other functions. It 
features: Use of simple ASCII com- 

mands, Battery Backup, Auto-baud 
detection. Complete documentation, 
and controls up to 256 electrical de- 
vices. It designed to send the in- 
structions over the AC house wiring 
to BSR modules connected to appliances 
or lighting throughout the house. HC-1 
costs only $195. each. 

RC-100 is a 16 channel, port or mem- 
ory addressable, remote relay control- 
ler which is S-100 compatible. It 
uses an 8035 CPU and 4 status/command 
registers to allow easy control. The 
RC-100 features: All I/O opto-isolated, 
60 Hz counter register. Unaffected 
relay status by power outages. Com- 
plete documentation, and external 2716 

Continued on Page 106 
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Tame your computer without 
breaking your wallet's spirit! 
Quality programs on tape or disk 
for the price of peanuts! 



THE GREATEST 

SOFTWARE 
DEAL ON EARTH ! 



A subscription to Chromasette Magazine consists of 6 to 8 ready-to-load useful, practical, and 
fun programs delivered by First Class Mail every month. Programs like Curve Fit. Diggem, Graph Text. List 
Mod, Robot Run, House Adventure, and Keep Text. 

Treat yourself to a great show — get a subscription to Chromasette Magazine. Or catch a single 
act and try a back issue. You'll be delighted by the tricks you r computer will do! 



The Bottom Line: 


Tape 


Disk 


Calif, residents add 6% to single copies. 


1 year (12 issues) $50.00 


$95.00 


North America — First Class postage 


6 months 






included. 


(6 issues) 


$30.00 


$55.00 


Overseas — add $10 to subscriptions and 


Single Copies 


$ 6.00 


$11.00 


$1 to single copies. Sent AO rate. 



The Fine Print: All issues from July 1981 available — ask for list Programs are for the 

Extended BASIC model and occasionally for disks. 




"Qi/comobettE 



MAGAZINE 



P.O. Box 1087 Santa Barbara, CA 93102 (805) 963-1066 MasterCard/Visa 





Cbn+lnued from Page 104 

or 2732 EPROMs. 

Both units are fully assembled and 
fully tested prior to shipment and 
application software examples are 
included with the documentation. 

They may be obtained from Automatic 
Micro, 2542 Billingsley Rd., Worthing- 
ton, OH. 43085 for $195 for HC-1 and 
$495 for RC-100 

*************************************** 




leased their new "user" software. 
" KP-84 " is now available! KP-84 is 
one of the most powerful video music 
systems (programmable color organ) 
you can buy anywhere at any price! 
And it only cost $20. You've read 
about the Kaleidophone in RAINBOW, 
HOT CoCo, and November Color Com- 
puter Magazine (pg. 116) and that 
was only our simple demonstration 
software (KP-83). KP-84 has many 

enhancements, including high-resolution 
graphics, program mibility, and much 
more. No special hardware is required 
Use your cassette recorder, 32K ver- 
sion, or joysticks, others, to input 
the music. But for easiest use, a 
kaleidophone interface KP-4 is still 
desireable. For more information call 
617-544-7688 any Monday, 10AM-3PM 
Eastern Standard Time. Requires 16K 
Basic, 16K ECB or 32K ECB. 
*************************************** 
We wish to announce both our new 
address & BBS version 4.0 to all. 

1) Silicon Rainbow Products, 1111 
W. EL Camino Real, Suite No. 109, 
Sunnyvale, California 94087 

2) We now have version 4.0 of Our 
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COLOR-80 BBS online! It can be acces- 
sed via modem by calling (408) 733- 
6809 24hours a day. Features include 
uploading, downloading, messages, 
pictures, rumours, jokes, editorials, 
and more. Thanks Shawn Jipp. 
*************************************** 

Hints, Tips, 

and Facts 

This is a note to other owners of 
CoCos with disk drives. 

If you are like me, you are well 
aware that "thou shalt back up disks 
reguarly", but with a single disk 
it can be a hassle and it is expensive 
to have all those extra disks. I know 
I get lazy. And it never fails, a 
disk crashes just moments before I 
intended to back it up . 



When a disk crashes it is usually 
just the directory that gets messed 
up. You can get at the data with 
complicated routines, but there is 
an easier way. There is an excellent 
article in the March 1983 issue of 
Color Computer Magazine written by 
Douglas Swank (page 16). He has writ- 
ten two short (15 lines of actual code, 
each) utilities that are super! One 
saves an extra copy of the directory 
and the other retrieves it and re- 
writes it to the original directory. 
I still backup my important disks 
but I rely on these utilities for my 
others and they have worked beauti- 
fully whenever I have crashed a disk. 

EDITOR'S NOTE: The above mentioned 

programs only work if you make the 
copy before the disks crash. I would 
really like to see a utility that will 
restore your directory after the crash. 

VOTING 

RESULTS 

SAD STORY -- 1% Of the members vote 
74% Yes and 26% No on the 1/4 page 
free DISPLAY AD vote. With the low 
percentage of response it has been 
requested that we vote again. See pg5. 




COMPUT6R FORMS 

Continuous forms, lobels, paper, checks, invoices, 
statements— uuith your imprint. Continuous letterhead 
uuith a perf so fine that you need a magnifying gloss to 
tell it's a fan fold sheet. Matching envelopes. 

Regular letterhead, business forms and cards also. 

Send sample for quote. 

Computer/Printer supplies and furniture. 

Send $3.00 (refundable on first order) for our 76 page 
full color catalog. 

For $15.00 extra uuith on order for 1,000 or more checks 
from our catalog uue uuill include our Check UJriting 
Program. It handles all checkbook functions, reconciles 
the account and prints the checks, if you uuish. It uuill 
handle as many bank accounts as you need. It uuill uuork 
for personal accounts except for the printing of checks. 
Vou must have a 32K Disc Drive CoCo. The program is in 
Basic and may be user modified. This program regularly 
sells for $35.00. (Does not apply to Payroll Check 
Program.) 

D€S€RT PRCSS, INC. 

P. O. Sox 15128 
Los Vegas, Nevada 89114 




SYNCOM 

1000 SYNCOM DRIVE Contact: Paul Maccabee 

P.O. BOX 130 Kamstra Communications, 

MITCHELL, SOUTH DAKOTA 57301 370 Selby Avenue 

TOLL FREE (800) 843-9862 S t . p aui> MN 55 X Q2 




FREE COMPUTER MAGAZINE GUIDE 
AVAILABLE TO COMPUTER CLUB MEMBERS 



ST. PAUL, MN -- If computer magazines like Popular Computing and Byte are supposed 
to explain the world of microcomputing, who will make sense of the computer magazines? 

A free monthly computer guide called Infoscan , available to computer club members 
throughout the United States, intends to do just that. Published by Syncom, a South 
Dakota-based manufacturer of 5 V magnetic diskettes, the guide for business and home 
computers users will index over 400 articles each month from leading computer magazines 
like Softalk, Nibble , Desktop Computing, and PC World . Among tbe subjects indexed 
in Infoscan's August 1983 issue: piracy and videotex systems, buying your second computer, 
beginner's luck for computer virgins, and perspectives on spreadsheet programs. 

"We found a bewildering array of over 135 computer publications," says Syncom Retail 
Sales Manager Jim King. "There are now magazines for computer tots, computer farmers, 
computer professors, computers in medicine — even a magazine for computer fitness. 

We felt a compact index like Infoscan would help microcomputer owners keep up-to-date 
with the latest computer software and resources. 

"There are simply too many publications out there for a mere human to handle," says 
King. "Either you need to be a computer yourself — or you need a copy of Infoscan ." 

Syncom, a division of Schwan's Sales Enterprises, is distributing Infoscan free through 
notices to computer clubs ranging from New York's International Apple Core to California's! 
Super Brain Users Group. The guide is also available by direct mail to subscribers calling I 
I Syncom's toll-free number, 800-843-9862. 
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FOR ONLY 

RETAIL 89.95 
- 20 % 



thirteen Scott Adams Adventures will provide 
you with hours o! facinatmg Adventuring. 
16K $24.95 (order by number M3) 

See Review Dec. 



venturi 



ALL GAMES 
^ ML_^ 



SPACE SHUTTLE — A simulation ot space shuttle mission. 
From blast oil to a smooth landing It's 
all here. 32K ECB $28.95 



Pafa Koftlnc 

ALL ARCADE 



tutNeow. 

prai 



AHEAD OF ANVTWDfO® 
— ON THE MARKET. - 



ML AUTHORS 
TOP ROYALTIES 
PAID 



EXTERMINATOR 

With your can of '‘RAID* 
you tight beck the 
insect attack. 
16K/EXT *18.96 



^ ALL SHELL 18K 
GAMES HAVE 32K 
VERSIONS (75% ML). 
BOTH VERSIONS ARE 
INCLUDED. 
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From mysterious castles to nuclear reactors. xa 
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LUNAR LANDER 
Land your damaged 
Lander on one of 
4 different planets. 
16K/EXT *15.96 _ 



FERERATION BOOT 
CAMP 16K/EXT 
You've been drafted for 
16 wks. Four games in one 
can you hack it? *18.96 © 



STAR RAID DEATH STAR 

Dock with your base Use the force and 

station to fuel up and save the princess 

fight the attacking aliens. (Review in April's Rainbowl 
16K/EXT *18.96 32K'*XT * 



©O 



SNOOPY b THE 
RED BARRON 
A hi res graphic Ooq 
fight. See Review Jan. 
16K'EXT *18.96 © 



-SUSA Orders under t60 v Add #2,50 
OTHER Orders Add *$.00 •hlp/hi*- 
Be; Reskient* add 5% sa fe* tax. 
■MMMI Viti/MC MHHMI 

NO CvOlD; ORDERS 



8301 Sarnow Dr./Orlando. FL 32807 
IF ITS NOT GOOD t WE DON'T SELL IT (306) 275-8490 
ORDER LINE 10 AM TO 9 PM “ ‘ ' " T (305) 282-6907 
SOFTWARE AUTHORS AFTER 6 PM 1 (305) 275-8490 



1Mn££mee members 

20% DISCOUNT 

MENTION THIS AD AND PAY BY CHECK/M. O. 

- SORRY VISA/M.C. NO DISCOUNT . 





Color Expo ’83 

by Susan Davis 

In April 1983, Rainbow Magazine spon- 
sored the FIRST Color Computer con- 
sumer show. Rainbow Fest. The "test" 
was an unqualified success. With an 
estimated 6,000 in attendance. 

Hoping to cash in on the success of 
this first show. Rainbow Magazine 
planned several more. Color Computer 
Magazine also planned its first show. 

Color Computer Magazine did an excel- 
lent job promoting their Color Expo 
'83. It was held in Pasadena, CA. 
on November 4, 5 and 6. The Pasadena 
Convention Center was roomy, well 
lit, and well ventilated. Tano had 
a booth and demonstrated the 64K 
Dragon. Radio Shack supported the 
Expo, as did the local Color Computer 
Users Group. There was a well plan- 
ned series of seminars, including one 
on software piracy. Many software 
houses had booths and introduced 
new products: Sugar Software, Tom 

Mix, Mark Data, Petrocci Freelance, 
Prickly Pear, Follett Library and 
the DATAMAN just to name a few. 
Radio Shack had a huge booth, and 
in addition to selling software, they 
sold hundreds of 16K CoCos for $119 
(standard) and $149 (Extended Basic). 

From the viewpoint of the attendee, 
the Expo was probably well worth 
the price of admission. Radio Shack 
sponsored several "classroom-work- 
shops", the vendors had attractive 
booths and informative presentations, 
and the seminar topics and speakers 
were welt chosen. 

From the vendors' viewpoint, there 
were 2 major weak points. Security 
was quite lax. You can imagine the 
problems that can occur when such 
is the case. The most serious draw- 
back of the Expo was the poor atten- 
dance. Official figures were 1,000 
paid attendees, and this seems reason- 
ably accurate. Many vendors were 
disappointed when their final sales 
from the Expo were tallied. 
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I think that this will be reflected 
in vendor attendance at future shows. 

In summary. Color Expo '83 was a 
fun and informative weekend for Color 
Computer Owners. Columbus, Ohio 
would be a good spot for the next 
one. 




1983 CoCo Kid playing HangMan from 
Sugar Software. 



Subroutines 

by Ron Garrett 

49999 'GRAPH LABELERiSEND STRING 
AS A$ : MAX LENGTH 13 CHARACTERS 

50000 L=LEN(A$):L1=110-((L/2)*12) 
:LINE(L1-12,165)-(L1+(16*L)+12,18 
8), PRESET, BF:XL$=STR$(L1) : DRAW'S 4 
;BM"+XL$+",185;" 

50010 FOR X - 1 TO L : M= A S C ( M I D $ ( A $ , 
X,1 ) ) 

50020 M=M-3 1 : IF M>38 THEN M=M-38: 
GOTO 50050 

50030 ON M G0SUB 50070,50080,5009 
0,50100,50110,50120,50130,50140,5 
0150,50160,50170,50180,50190,5020 
0,50210,50220,50230,50240,50250,5 
0260,50270,50280,50290,50300,5031 
0,50320,50330,50340,50350,50360,5 
0370,50380,50390,50400,50410,5042 
0,50430,50440 

Cbntinued on Page 112 



B 5 Software 



B5 believes the Computer is a unique teaching tool and 
deserves quality software. Our programs are based on 
sound learning principles and make learning fun. 



EDUCATIONAL P 

for your trs-so 



ROGRAMS 

COLOR COMPUTER* ft TDP-100* 



with Extended Ba.le 




CLOCK 



t 



Grade* 1-4. Helps children practice telling time. 4 
skill level*: hour, quarter hour, 5 minute and 1 minute 
interval*. Options include reading hour* and minutes 
separately on the large grophic dock with synchro- 
nized hands. After 10 correct answers o small mouse 
ascends to the tune of Hickory, Oickory, Dock. 

16K Cass $24.95 32K Disk $26.95 



MONEY 



t 



Grode 2-4. Provides on opportunity to count coins. 

5 skill levels range from counting only dimes, nickels 
and pennies to counting various combinations of ell 
coins which can total more than one dollor. The pro- 
grom uses graphic coins. If o series of 3 problems are 
answered correctly a rocket ascends to the moon. If 1 
or more are incorrect, the rocket crashes instead. 

16K Cass $19.95 16K Disk $21.95 



BORROW 



t 



Grades 2-4. Allows the student to reinforce subtrac- 
tion skills. Problems appear in large grap hi c numer- 
als. Small boxes above the numerals ollow for regrou- 
ping procedures. 7 skill levels. A hoppy face appears 
on the screen for eoch correct answer. After 10 com- 
pleted problems, a Pac-Mon-type creature munches a 
numeral down. 

16K Cass $19.95 32K Disk $21.95 



CARRY t 



Grades 2-4. A program designed to help stude nts to 
practice addition. Uses same format as Borrow. 4 skill 
levels. 

16K Cass $19.95 32K Disk $21.95 



? 9 



? ? 

QUESTION X 



Grades 1-8. Asks questions with multiple ehoice or 
true and false answers. Pits any curriculum because 
you can input the questions and answers. Graphic re- 
ward is a blinking robot. Also designed for use with 
dota tapes. Printer use optional. 

16K Cass $19.95 32K Disk $21.95 



MATH FACT 



t 



Grade 1-5. Motivates students to loom their facts. All 
4 math operations or* in the progrom. Student selects 
the desired operation then the desired addend, subtra- 
hend, factor or divisor, or then can request a mixed 
presentation within eoch operation. 2 skill levels, ell 
drills timed and scored. If all facts are answered corr- 
ectly, students con play a quick number game as o re- 
ward. 

16K Cess $16.95 32K Disk $18.95 



HANGWORD & SCRAMBLE 

Grades 1-8. Presents 2 word games. Hangword is simi- 
lar to the old favorite. Hangman. Blanks appear and 
students guess letters for the blanks. Wrong guesses 
build the graphic disploy of the word ‘Sorry*. Scramble 
displays the word with the letters scrambled. Students 
guess the word and spell it correctly. Input own words 
with this program or purchase date tapes. See data 
tap* listing. Printer use optional. 

16 K Cass $14.95 32K Disk $16.95 



SPELLING 

Grades 1-8. Very flexible as it allows you to input 
your own choice of words and store them on top* files. 
You moy also purchase data tapes for this program. 
See data tap* listing. Words flash on fh* screen from 
.1 to 10 seconds, then student types the word. The 
score is given after eoch entry end the student is 
rewarded with a graphic disploy of words and o song. 
Printer us* optional. 

16K Cass $16.95 32K Disk $18.95 




keyboard 



Grades 1-6. Helps familiarize student with keyboard. 

A graphic keyboard enables user to locate keys quick- 
ly. Home keys are identified and proper fingering may 
be taught. Lessons are built around olphabet, finger, 
word and sentence drills. At the end a grophic reward 
is given. 32K version has lengthier timed drills. Both 
I6K and 32K versions can use data topes for further 
practice. See data tape listings. 

16K Coss $19.95 32K Cass $24.95 32K Disk $26.95 



ABC'S 

Grades K-1. The child types the letters In the alpha- 
bet to the tun* of the alphabet song. The reward is o 
grophic and sound displo 
16K Coss $9.95 ““ 



isploy . 

16K Disk $11.95 



SKIP COUNTING 

Grades 1-4. Helps the child learn to count by 1's, 2's, 
5's, 10's, 100's, or any number desired. The user sel- 
ects the parameters by giving the number to count by 
and the beginning ond ending number of each sequence. 
The student con practice at whatever level needed, 
and each lesson has a graphic reword. 

16K Coss $16.95 




Dato Topes moy be used with other B5 programs. They 
cannot be used alone. 

Us* with Keyboord Program 

KEYBOARD PHONIC DRILL - Letter, word ond sen- 
tone* finger drills using common vowel and consonant 
combinations. $8.95 

Us* with Keyboard, Spelling or Hangword Programs 
DOLCH WORDS • 273 words used most often in begin- 
ning readers. $8.95 

GRADE LEVEL SPELLING • Over 300 words on each 
tope. Each lesson follows o phonic rule. Available in 
Grades 2, 3, 4, 5 or 6 levels. $8.95 per grad* level 

SPACE WORDS • Over 300 words to challenge ond mo- 
tivate the superior speller. Grades 4-8. $8.95 

ADULT WORDS - Most often misspelled words. Highly 
challenging. $8.95 

Use with Questions Progrom 
NOUNS AND VERBS - 4 lessons on nouns and 4 on 
verbs. Grades 3-5. $8.95 

READING COMPREHENSION • Lessons build from 
simple to complex. Grades 2-4. 



Main Idea 
Sequencing 
Faet & Opinion 
Cause & Effect 
Complete Series of 4 



$10.95 

$10.95 

$10.95 

$10.95 

$39.95 



RAINBOW 

CERTIFICATION 

SEAL 



Ask your Dealer for a Demonstration today! 
BROCHURES UPON REQUEST 



'TRS-80 and COLOR COMPUTER 
are Trademarks of Tandy Corp. 



(614) 276-2752 



If unavailable locally, send check or money order tot 

B5 Software 

1024 BAINBRIDGE PLACE 
COLUMBUS, OHIO 43228 

Free Shipping in U.S.A. & Canada 

TOTAL ENCLOSED 



ADDRESS . 
CITY 



. STATE _ 



(OH Residents add 5H% Soles Tox) 



QTY. 



QTY. 



DATA TAPES 



CLOCK 



MATHFACT . 
QUESTIONS , 
MONEY 



, SKIP COUNTING . 
HANGWORD/ 



SCRAMBLE 



CARRY 



KEYBOARD 

BORROW 

ABC’s 



SPELLING . 



. KEYBOARD PHONIC DRILL . 
DOLCH WORDS 



GRADE LEVEL SPELLING . 



GRADE 2 • GRADE 3 • GRADE 4 
GRADE 5 • GRADE 6 



, SPACE WORDS 
ADULT WORDS 



NOUNS AND VERBS 



READING COMPREHENSION . 



SUBTOTAL 




SALES TAX 




TOTAL ORDER 
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50040 GOTO 50060 

50050 ON M GOSUB 50450,50460,5047 
0,50480,50490,50500,50510,50520,5 
0530,50540,50550,50560,50570,5058 
0,50590,50600,5061 0,50620,50630,5 
0640,50650,50660,50670,50680,5069 
0 

50060 NEXT X 

50070 DRAW"BR8":RETURN: 'SPACE 
50080 DRAW"BR5R2U2L2D2R2U1 5BR1 OBD 
1 5" : RETURN : ' ! 

50090 DRAW"BR4BU1 2U4BR4D4BD1 2BR8" 
: RETURN : ' " 

50100 DRAWBR4U5NL4NR8U6NU5NL4R4N 
R4NU5D11BR8":RETURN: '# 

50110 DRAWBR2NH2R8E2U4H2L8H2U4E2 
R8F2BL8NU2D14BR4NU16BR6" : RETURN:' 
$ 

50120 DRAW'EI 2BL1 2 D 1 R1 U1 L1BF1 2L1 U 
1R1D1BR4" : RETURN: ' % 

50130 DRAW'BRl 2H1 2U2E2R6F2D2G1 002 
F2R8NE3BR6" : RETURN : ' & 

501 40 DRAWBR6BU1 2U4BR1 0BD1 6" : RET 
URN : ' ' 

50150 DRAW'BRl 2H5U6E5BD1 6BR4” : RET 
URN : ' ( 

501 60 DRAWE5U6H5BR16BD1 6": RETURN 
: ' ) 

501 70 DRAWBU8BR6NL6NH6NU6NE6NR6N 
F6ND6NG6BR10BD8":RETURN: ' * 

50180 DRAW"BR6BU8NU5NL5NR5D5BD3BR 
1 0" : RETURN : ' + 

50190 DRAW”BR4R2U2L2D2BR2NG2BR10" 
: RETURN : ' , 

50200 DRAWBR3BU8R6BR7BD8" : RETURN 

,• 1 - 

50210 DRAW"BR3U2R2D2L2BR1 2" : RETUR 

N : ' . 

50220 DRAW”U2E12U2BR4BD1 6": RETURN 
: ’ / 

50230 DRAW"BR2H2U12E2R8F2D12G2NL8 
BR6" : RETURN : ' 0 

50240 DRAW"BR2R4NR4U16L2G2BD14BR1 
4":RETURN: '1 

50250 DRAW"BR2NR10U2E10U2H2L8G2BR 
16BD14":RETURN: '2 

50260 DRAWBR2NH2R8E2U4H2NL4E2U4H 
2L8G2BD1 4BR1 6" : RETURN : ' 3 
50270 DRAW"BR8U16G8R12BD8BR4":RET 
URN: '4 

50280 DRAW"BU2F2R8E2U4H2L1 0U8R1 2B 
D 1 6BR4" : RETURN : '5 

50290 DRAW"BU2NU6F2R8E2U4H2L8U5E3 
R6F3BD1 3BR4" : RETURN : ' 6 
50300 DRAW"BU16R12D4G12BR16" :RETU 
RN: '7 
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50310 DRAWBU2NU4F2R8E2U4H2L8NG2H 
2U4E2R8F2D4NG2BD10BR4" : RETURN:' 8 
50320 DRAW"BU3F3R6E3U10H3L6G3D3F3 
R98R4BD7" : RETURN : ' 9 
50330 DRAW”BR7BU3R2U2L2D2BU7R2U2L 
2D2BD1 0BR9" : RETURN : ' : 

50340 DRAW"BR5BU3U2R2D2NG3L2BU8U2 
R2D2L2BD11BR11":RETURN: '; 

50350 DRAW'BRl 2BU2H6E6BD14BR4": RE 
TURN : ' < 

50360 DRAWBU6NR1 0BU5R1 0BD1 1 BR4" : 
RETURN : ' = 

50370 DRAW"BU2E6H6BD14BR16":RETUR 
N : ' > 

50380 DRAW"BR5R2U2L2D2R1BU5U3E3U3 
H2L6G3BD13BR16":RETURN: '? 

50390 DRAWBU2NU4F2R8E2U6L8G2E2R8 
U6H2L8G2BDl4BR16":RETURN:'a 
50400 DRAW"U10NR12E6F6D10BR4":RET 
URN : ' A 

5 0410 DRAWNU16R10E2U4H2NL10E2U4H 
2L10BD16BR16":RETURN; 'B 
50420 DRAWBU3BR12G3L6H3U10E3R6F3 
BD1 3BR4" : RETURN : ' C 
5 0430 DRAWU16R9F3D1 0G3L9BR1 6" : RE 
TURN : ' D 

50440 DRAW'NRI 2U8NR8U8R1 2BD1 6BR4" 
: RETURN : ’ E 

50450 DRAWU8NR8U8R1 2BD1 6BR4" : RET 
URN : ' F 

50460 DRAW"BU5BR8R4D2G3L6H3U1 0E3R 
6F3D1BD12BR4":RETURN:'G 
50470 DRAWU8NU8R1 0NU8D8BR6" : RETU 
RN : ' H . 

50480 DRAW"BR2R4NR4U16NL4R4BR6BD1 
6” : RETURN : 'I 

50490 DRAW"BU3F3R3E3U13NL9R3BD16B 
R4" : RETURN : ' J ; 

50500 DRAWU8NU8E2NF1 0E6BD1 6BR4" : 
RETURN: 'K 

50510 DRAW"NU16R12BR4":RETURN:'L 
50520 DRAWU16F6E6D16BR4": RETURN: 
'M 

50530 DRAW" U16D2F12NU1 ; 4D2BR4":RET 
URN : ' N 

50540 DRAWBU2NF2U1 2E2R8F2D1 2G2NL 
8BR6" : RETURN : '0 

50550 DRAW"U16R8F2D4G2L8BD8BR16": 
RETURN : ' P 

50560 DRAW'BU3NF3U10E3R6F3D10G3NL 
6E1NH2NF3BD1BR6":RETURN:'Q 
50570 DRAW'UI 6R8F2D4G2L8R2F8BR8" : 
RETURN : ' R 

50580 DRAW' BU3F3R7E2U4H2L8H2U4E2R 
8F2BD14BR4":RETURN: 'S 

Continued on Page 120 



LEADER SALES CORPORATION 



214 657-7800 P • O. Box 1220 • Rt. 5 — Town East Road Henderson, Texas 75652 

After 6 pm 
or weekends 



CENTRONICS MODEL 588 PRINTER 

Up to 132 characters per line 
Sprocket feed up to 14 7/8" 

Up to 4 carbon copies 
88 CPS - Dot matrix 5x7 
Serial I/O Port w/4-pin DIN plug 
Reconditioned commercial model 
$149.95 

§ § 

ACCOUNTS RECEIVABLE PROGRAM 



COLOR COMPUTER REPAIR SERVICE 

Quick service and upgrades 
for Radio Shack color 
computers . 

Please call for prices. 

§ 

MASTER SAVE PROGRAM 



32K Disk basic 

Accounts receivable for large 
or small business 
Menu driven 
1-4 disk drives 
100 - 400 accounts 
5K - 20K transactions per month 
Basic for easy editing 
$49.95 
Disk Only 

§ § § 



32K Disk basic 

Master directory, up to 35 disks 
on single disk 

Directory back-up on your disk if 
you lose the original 
Hard print-out of directories 
Menu driven 

$19.95 
Disk Only 



COLOR COMPUTER UPGRADE 



n pti 

"D" 

"E" 



Upgrades to 64K 

w/o chips w/chips 
board $10.00 $55.00 

board $20.00 $65.00 

board $20.00 $65.00 



MARK DATA PRODUCTS 
SUPER-PRO KEYBOARD 

$60.00 

"F" board adapters add $4.95 

Insulation free w/upgrade 
or repair service. 

§ 



DISKETTES 



5V single side, double density 
Soft sectored for color computer 
Made in USA 
Box of 10 for $16.00 



Club discount applies only on 
Centronics printers and software programs. 

Printers are shipped freight collect F.O.B. Henderson, Texas. 
Texas residents add 5% sales tax for hardware. 

Terms: Cash, check or C.O.D. 

All prices plus shipping and handling. 




Classified Advertisements 



***PR INTOUTS*** 

I have started a service offering 
printouts of BASIC programs. 
If you need or want a listing 
of your program and you don't 
have a printer, you can use mine. 

I will send you a printout of 
your program If you send me your 
cassette and $2.50. Extra copies 
are 25 cents each. I use only 
high quality 20 pound laser edge 
paper. Your listing will be print- 
ed on my Epson RX-80 printer. 
Money Orders only please. Send 
to: Jeff Coil, 1411 Hi I Icrest, 

Grand Rapids, Ml 49504. 

§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§ 

1 Radio Shack Personal Finance 

(used 1 Hour) $18.50 

1 Radio Shack "Spectacu I ator" 

(Used 1 Hour) $18.50 

Money Order Preferred. Send to: 
Tony Winkler, 4376 Ewing Ave. 
North, Robbinsdale, MN 55422 

©©©©©€xgXg>€>©©€>©©€^^ 

$LAS VEGAS P0KER$ Very realistic 
cassette version of top notch 
poker game. Identical with newest 
CASINO machines - uses super 

HI RES graphics. Requires full 

32K Extended Basic. Developed 

In CANADA. Sell for $15 a copy 
or trade for other arcade quality 
games or? Sell Line Printer VII 
with dust cover and cable for 
$185. Sell new Spectrum Projects 
Double Stick Interface. Also 
top-rated, self-centering super 
joystick (best on the market). 
Both for $35 or trade (both) 
for Kraft joystick. Sel I new 

ATARI joystick for $10. I pay 
shipping. Contact Fred Naumann, 
Box 1081, Hailey, Idaho 83333. 

"PoCo Co Co" 

I MC- 1 0® I 

Five f Snappy 1 Programs! For your 

Micro Color Computer"'! Send blank 
cassette and $3 to: Ron Beall, 

P.0. Box 734, Ozona, TX 76943 



FOR SALE - Radio Shack ROMpacks 
all In good working condition. 
Space Assault $10, Oolor File 
$20, Oolor Scrips It $20, Bustout 
$10, Personal Finance $15, Oolor 
Computer Learning Lab $25. Send 
orders to: Stan R. Seagle, 3376 
East Market St., Warren, OH 
44484. Will ship when personal 
check clears or send Money Order. 

FOR SALE - Radio Shack Color 
File $20, Radio Shack Personal 
Finance $20, Radio Shack Oolor 
Computer Learning Lab — 8 tapes 
and manual. $25, Spectral Assoc. 
Magic Box $10 (converts Mod. I 
or III programs for use on CoGo., 
Sinclair ZX-81 Complete with 
manual and programming books 
$30, Soft Sector Marketing Master 
Control II $10. All are original 
programs in excellent condition. 
Get all of the above for $100 
or buy them individually. Send 
orders to: Paul L. Kush, 17331 
Walnut, P.0. Box 638, Yorba Linda 
Cal ifornia 92686 or cal I (213) 
691-2169 for more Information 
§§$§*§§§§§§§§§§§§§§§§§§§§§§§§§§§§ 
ROMpacks for Sale - Music $10, 
Personal Finance $15, Color File 
$10, Space Assault $10, Art Gal- 
lery $15, Football $10, Galactic 
Attack $10, Dlnowars $10, Project 
Nebula $15, Polaris $10, Pinball 
$10, Quasar Commander $10 and 
Basic Aid $20. 

Oo lor Forth Tape (16/32K) $20 

Will sell individually or all 
for $150. Seller will pay ship- 
ping. Contact: John Livernash, 

1517 Foster Dr., Reno, NV 89509. 

t$%%t$tt$$$$%tt%$t%$tttft$%%%i%%% 

FOR SALE: Radio Shack Line Print- 
er VII. Mint Condition. Ribbons, 
etc. are included along with 
shipping and insurance. $200. 
For more information call: (815) 
729-9543, Glenn B. Harvey, 724 
Prestige, Joliet, IL 60435. 



** FOR SALE * FOR SALE ** 
RADIO SHACK Line Printer VII 
(One Year Old). I am upgrading 
to the new DMP-120 and do not 
need two printers! Looks and 
runs like new. Includes dust 
cover, cable, one partially used 
ribbon cartridge, shipping and 
insurance. Only $200.00. Please 
call first if interested: Steve 
Ostrom, 12612 Cedar Lake Road, 
Minnetonka, MN 55343, 612-546- 
7608. I will ship immediately 
if you send a certified check 
or money order . 

ft******************************** 

FOR SALE OR TRADE (originals) 
Radio Shack VIDEOTEX, Radio Shack 
Project Nebula, Radio Shack Space 
Assault, Radio Shack Checkers, 
Radio Shack EDTASM+, and Eigen 
Systems CCEAD. 

WANT TO BUY or TRADE for a Disk 
Ed itor/Assembl er , CCforth, and 
PASCAL for the OoCo. Oontact 
Virenda K. Jain, 105 Everett 
Street, Arlington, MA 02174. 
ttttttttttttttttttttttttttttttttt 
FOR SALE-TELEWRITER-64 (Oognitec) 
$43, WORKSAVER( Platinum Software) 
$28, TYPING TUTOR (R.S.) $23, 

THE KING (Tom Mix) $19. All are 
In good condition and include 
Documentations. I will pay the 
postage. Write to: Mr. Luong 

Phuc Tho, 133-01 Sanford Avenue 
(#2D), Flushing, N.Y. 11355 

OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO 

SPECIAL CLOSEOUT 

Two never released hi-res machine 
language 2-player joystick arcade 
games from Creative Computing. 

1. PICNIC- Escape the evil spider 
and capture foods. 

2. TRICKASHAY- A tank duel in 
a tricky maze. Both are 16K Ex- 
tended Basic. 

Both are an incredible $11.95 
(Please add $1.00 for S & H) 
Computer Island, 227 Hampton 
Green, Staten Island, NY 10312. 
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HAWG WILD Software hawg wild software (tm) 

nM,,W WWlfcfc# FOOTBALL FORECASTERS ) with 1983 data 

software components base • Available for 16 k ZX-81.TS-1000 

or l6K TRS-80 Color Computer. Specify 
SYSTEMS hardware NFL or Co xi eg e . Only $19*95 each or 

$29.95 for both. Add $1.00 ?. & H. 

P.O. Box 7668 /v/i-'W . 

Little Rock, Arkansas 72217 Coco Users^THIS OFFE R IS 1 HOT < l ** 



PRODUCTS AND PRICES FOR DEC, 1983 
All prices effective Immediately. All 
prices subject to change without notice. 
All Items subject to availibill ty . 



We are dealers for 
all Items from 



Armadillo Int’l 



ORDERING INFORMATION : To order by mail, send money order, certified check, or personal check (allow 
1 4 days to clear) Include $2 00 shipping on all software orders. Include 3% shipping on all 

hardware orders, minimum $2 50 OUI LWalt 



^e 



xcept as noted 



Arkansas residents add 5^ to all prices. 




*We are seeking original, quality soft- 
ware for distribution. We pay top roy- 
alties for accepted programs. Submit all 
items along with a statement of origin- 
ality for a prompt reply with terms and 
conditions outlined. 



COLOBFORTH(R) , flgFORTH for 
16K Coco. ECB not required. 

Disk and cassette 

package, only $ 49.95 

_ add $2.00 P&H 




COMPUTERWARE 






y 






Including : Doodle Bug($26.95), 

PAC ATTACK($24.95) .Megapede 
($21.95) »RallRunner( $24.95) , 
Synther 7 ($21 .95) • .many more. 

All COMPUTER WARE(R) add $2.00 P&H. 






Premium grade data cassettes. All 
tapes are fully guaranteed. We use 
these fine cassettes here at HWS. 



C-10 6 pack $5*50 

C-20 6 pack $ 6.50 



6 or 60 - add only $1.00 P&H. 

COMPONENTS * * * *any but custom*. 
First run prime IC's-no seconds! 
4164P-3 150ns 64K x 1 DRAM $7.50 

6116P-3 150ns 2K x 8 SRAM $8.00 

2114L-2 200ns IK x 4 SRAM $4.00 

Z80A-CPU ZILOG $4.2 5 

Edge connectors, .156 H centers 

22 pos.,44 contact, gold $4*50 

25 pos .,50 contact, gold. ... .$5 o 20 
(trim 25/50 for ZX/TS use) 
Contacts are user removable for 
polarizing keys. (.25 each, only 
with connector order .) Specify if 
solder tail, solder eye, or wire 
wrap output desired. 

Connectors & IC’s Postage & Hand.: 
1-6 add $.50 ; 7 or more add $1.00 



Non-Dlsk(TM) business software. 

Get these super FUTUREVIEW cassette 
based business programs. Yes groups, 
discount applies here also. 

All programs for 16 K or greater 
TRS -80 .models noted. All Coco are 



ECB. 

- CHECK SYSTEM 

MOD I, III, Coco $24.95 

- ELECTRIC BOOKKEEPER 

MOD I, III, Coco . .$49.95 

- SALES INVENTORY 

MOD I, III, Coco $49.95 

- TYPING COURSE 

MOD I, III 16K only $19*95 



- Games: Marooned Again ( I , III -$14.95) 
WorraHole(I,III-$l9. 95 ) .PHASE IV 
(32K I , III , Coco-$42 .90 )Glant Space 
Slug plus Warpwar(I,III-$19.95) * . . 
and many more . 

All FUTUREVIEW add $2.00 P&H. 



HAWG WILD Software (TM) invites your 
comments and inquiries. 

^ Gary Smith, President 



Original software for sale: ROM 

packs include Spectacu I ator , 
Personal Finance, Space Assault, 
and Chess. Tapes include Ghost 
Gobbler, Color Zap, Whirlybird 
Run, Lunar Rover, Master Control 
II. Name your own price. J.D. 
Ray, 5065 France Ave, N. Charles- 
ton, S.C. 29406. 

miff iff iiiriffiiif miff nmviii 

*##*## 

International Color- Computer 
Club, Inc. Members wishing to 
trade computer program tapes 
(programs may be up to 32K in 
length and run on either EC8 
or Basic). I am interested in 
adventure game programs but I 
will consider others. Send list 
of what you are trading to Robert 
P. Wharran, 985 — 36th Ave., Vero 
Beach, FL 32960. 

t%iti%ttt%tttwt%tttt%tit%t%i%ti 

LINE PRINTERS 

CENTRONICS 588 (used) serial 
600 Baud, 88 CPS with 4 pin DIN 
plug. All prices F.O.B. Henderson 
TX. Terms: Cash, Check, or C.O.D. 
Texas Residents add 4% sales 
Tax. Send orders to: Leader Sales 
Gorp., P.0. Box 1220, Henderson, 
Texas 75653-1220 or call (214) 
657-7800 after 6:00 PM CST. The 
price is: $149.95 regular or 

$119. 95 to club members and 

volume buyers. 

WANT DESCENDERS? GOT A RS VII 
PRINTER? We’re talking some very 
serious stuff! We got Descenders, 
Ascenders, Justified Left and 
Right Margins with equal spacing 
between words on the same line. 
Underlining & Footnotes, Expanded 
Print, Automatic Head ers/ Footers . 
REALLY LOOKS GOOD! land beats 
the price of a new pr i nter . Money 
back if not satisfied. Works 
great with any word processor . 
Send $11.95 to: Jim DeStafeno, 

158 Edward Drive, Swedesboro, 
NJ 08085 or SASE for free info. 

5V' DISKETTES 
BOX OF 10 for $16.00 

Leader Sales Cbrp. P.O. Box 1220 
Henderson, Texas 75653-1220 
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BIG SALE 

Original Programs 

Zaxxon-$20, Planet I nvas ion=$ 12, 
Color Zap=$4, Astro Blast=$12, 
Dunkey Munkey=$10, Pac At+ack=$8, 
Sky Defense=$5, Ms. Gobbler = $15, 
Trapfa I I =$ 1 5, Space Shuttle=$15, 
Robottack=$1 5, Color lnvaders=$8, 
and Tape to Disk=$8. 

Send $1 Shipping to: Mike Anheluk 
38465 Place Road, Fall Creek, 
Oregon 97438 

*#*#########***#####**###*##*#### 
***F0R SALE*** 

On Cassette 

Zaxxon=$20, Go lor pede=$ 1 5, Donkey 
King=$15, Lancer=$15, Lunar Rover 
=$15, Storm Arrows=$12, Blochead 
=$15, Of f ender=$ 1 2, The Frog=$15, 
Star Fire=$ 1 2, Astro Blast=$12, 
Meteoro ids=$ 1 2, Pacdro id=$ 10, 
Grabber = $ 12, Trapfa I I =$ 1 2, Whir I y 
bird Run=$12 

I’ll pay shipping. Send M.O. 
to James MacArthur, Rt. 1, Box 
155, Gil lett, Wl 54124. 
ttttttttttttttttttttttttttttttttt 
FOR Sale- Original Software (No 
copies) with original Documenta- 
tion . 

HomeBase (DBM) $50 Req . 32K, 

I Disk, Sands of Egypt $15 R/S 
Graphic Adv. On disk Only, Elect. 
Calig. $12 DSL On disk, Alcatraz 

II $5 On tape, Starship Cham. 
$5 On tape, Katerpillar $10 Tom 
Mix On tape. 

Please send check (3-4 weeks) 
or Money Order (immediately) 
to: Joe Rom i to, 5717 Old Reid 

Road, Charlotte, NC 28210. I 
pay s hi pp i ng . 

ooooooooooooooooooooooooooooooooo 

I am interested in a program 
similar to R.S. "Personal Finan- 
ce", for my 32K ECB 2-Disk CoOo 
System. Contact: Ron Haluzan, 

Rt. 2, Box 565 D, New Braunsfels 
Texas 78130. 



** MASTERGRAPH ** 
MASTERGRAPH is the ultimate in 
a drawing tool. It is simple 
to use, and features single key 
acces to EXT. BASIC graphic com- 
mands. It allows 15 sizes of 
text in upper/lower case. It 
also saves pictures to tape, 
reverses colors, makes symmetric 
halves, & much more! Includes 
3 sample pictures. 16K ECB & 
1 joystick required. Send Cash, 
check, or money order for $11.95 
to: Michael Hall, 3019 Sylvester 
Drive, Hart I and, Wl 53029. Send 
a S.A.S.E. for full details. 



I am i n the process of develop- 
ing several hardware projects 
for the GoGo, low cost plotter 
etc. I have spent many hours 
developing a low cost adapter 
to use the Atari joysticks with 
the GoGo. The package includes 
complete documentation, schema- 
tic/parts list for building your 
own unit using Radio Shack parts 
Price for members is $9.95 ppd, 
the 5 pin Din plugs to connect 
to the rear of the unit are 
$2.25 ppd. 

SURPLUS HARDWARE SALE 
R/S PC-1 with printer $150 ppd. 
R/S mod 1 Keyboard with video 
modulator and cassette $250 NOT 
ppd. Servus Systems commercial 
duty 132 column formed character 
printer (upper case only) with 
stand $275 plus shipping. 

Send orders for above to: Bryan 
McPhee, Box 61, New Lisbon, NJ 
08064. Thanks! 

B/W B/W B/W B/W B/W B/W B/W B/W 
Attention Photographers : 

16K Non-Ext. Basic Program to 
aid in Black/White Film process- 
ing of Tri-X, Plus-X, and Panato- 
mic-X films using D-76, Microdol- 
X, or HC110 (Dil.B) Developer. 
For the GoGo on tape for $13.00 
Shipping & Handling is included. 
Personal checks must clear first. 
Send order to: Paul D. Kirkpat- 
rick, 5603 Linwood Court, Sea- 
brook, MD 20706. 



Line Pr i n+er VIII 
For Sale-Line Printer 8. This 
printer is in excellent condi- 
tion and comes with the special 
adapter to use roll paper, an; 
owner's manual, and two ribbons. 
This printer uses fanfold paper- 
- or single sheet paper (fric- 
tion feed)!! DOES GRAPHICS, TOO! 

A must for the serious computer 
user. If interested, please call 
Michael S. Dixon @ (703) 751-4 

2977; or write to me @ 3628 

Trinity Drive, Alexandria, VA 
22304. I am looking for $759.00 
for this printer, but maybe we 
can ta I k. 



: SOFTWARE SALE : 

I am converting to disk and have 
the following for sale. All in 
as new condition: ROMpacks: R/S 

Spectacu I ator $26, R/S Co lor File 
$17. Cassettes: Cognitec Tele- 
writer 64 $34, PXE Autoterm 

Terminal $26, R/S RAAKA-TU 
$10, AARDVARK PYRAMID $10, Snake 
Mountain SOLUTION $8. MODEM: 
Signalman Color Modem $75. 
Please include $1 P&H and a S.A. 
S.E. for check return in case 
of prior sale. Send orders to: 
Melvin Ha I pern, 600 Manning Dr., 
Charlotte, N.C. 28209. 



FOR SALE FOR SALE FOR SALE 

All of the following software, 
ALL COMPANY ORIGINALS , which 
I purchased but am tired of: 
Doodle Bug — by Gomputerware 

GALAX ATT AX— by Spectral Ass. 
Planet Invasion — by Spectral 
Color Caterp i I I ar-by Soft Sector 
Vampire Castle — by Aardvark 

Advanced Star Trench Warfare 
by IMB. Will sell all of them 
for $100 or Each for $18.00, 

Call (803) 884-1911 or write 

to: Mitchell Cohen, 1028 Law 

Lane, Mt. Pleasant, S.C. 29464 
To make immediate arrangements. 
I'll pay for the S&H. 



For Sale - Clearence - New In- 
ventory coming in. 16K Extended 
Basic Color Computer $225 w/2 
manuals. Color Computer cassette 
recorder $29.99. Color Comput- 
er Learning Lab $23.00. Pyramid 
cassette $10. Wizard's Tower 
$10. Trans Tek CC File $5. CC 
Graphics (Don Inman) $9. 101 

Programming Tricks for CC $6. 
30 Computer Programs for Home 
Owner $7. I will pay postage. 
Complete package $275.00. 

I will be donating my remaining 
books to the ICCC, Inc. Library 
if I can sell the above. If a 
personal check is sent I wi I I 
wait til check clears before 
mailing. To order: Judith M. 

Hoberman, 4330 Grace Avenue, 
Bronx, New York 10466. 

TAX83: A CoCb program to aid 

in your tax preparation. It will 
process your data, format and 
print schedules in a form ac- 
ceptable for submission to the 
IRS. Provide data for the form 
1040. It's use may be tax deduc- 
tible. The following versions 
are available. Runs in Color 
Basic. 

1. 32K. Schedules A,B,E,F,G,W, 
and credit for dependant care. 
Form 1040. $14.95 

2. 32K. Same as above but in- 
cludes SC forms 1001 and 1001 ID 
$17.95 

3. 16K. Schedules A,B,W, and 
credit for dependant care. Form 
1040. $11.95 

EFG. 16K. Schedules E,F, and 
G. $7.95 

Check or money order (include 
$1.00 P&H) to: John M. Gregg, 

Dept I, 1008 Alton Circle, Flor- 
ence, S.C. 29501. 



Thanks for the support last 
year. Best wishes for this year. 
Happy Valentine's Day to All. 



I have a lot of Software I would 
like to sell, a partial list 
follows: $17 each ROMpacks 

Color File, Quasar Commander, 
TAPES- Astroblast, Packet Man, 
Asteroids, Berzerk, Donkey King, 
Space Shuttle, Protectors, Many 
more. Make an offer. 

Cave Hunter $15. Telewriter 
$15.. Color Computer Learning 
Lab $25. Color Bonanza (50 Pro- 
grams) $25. TRC Programmers In- 
stitute Magazine on tape (past 
Issues) $5. TRC Programmers Pro- 
gram $18. Back Issues of Rain- 
bow, Color Computer News, 80 
Micro, Creative Computing. $1.80 
if you buy several. 

My address is Charles E. Porch, 
O.D., University Mall, 7171 N. 
Davis, Pensacola, Florida 32504 
or call 904-944-4310 and leave 
a message & 1 1 II call back. 



FOR SALE- 0k i data 82A Printer 
with forms tractor. Like new- 
printed only about 100 pages. 
Interfaces to CC serial I/O port 
I'll include 10 foot CC cable. 
Save over $100. Only $350 - I'll 
ship U.P.S. Tom Gonlon, 358 Win- 
dsor St., Cambridge, MA 02141. 
Call evenings 617-864-6898. 



"Attention "Odd Couple" Fans!" 
If you love "The Odd Couple" 
then this program is for you! 
The Official Odd Ooupl e Tr iv ia 
Quiz! Graphics, hints, and more. 
User modifiable- add your own 
questions. Test your "expert" 
friends - great for parties. 
Will run on any 16K GoCo. Only 
$5.00! ! And I pay postage. How 
can you go wrong? Send check 
or money order to: David Bern- 
stein, 162 - 03 88 St., Howard 

Beach, N.Y. 11414. 

I have a TRS-80 Color Computer 
32K Ext. Basic. I am interested 
in a disk system. I am looking 
for a used disk system in fairly 
good condition. Contact: Jim 

Bennington, 811 Early Forest 
Circle, Sandston, VA 23150. 
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Attention CoCo Programmers 
If your programs are becoming 
too long to handle and to keep 
track of, and you don't have 
3 printer yet, then for $2.50 
I will print your program for 
you. Each additional copy will 
be 50 cents „ Just send me a good 
copy of your program on a cas- 
sette and I will send you the 
program listing and your casset- 
te back in a large man i la en- 
velope. 

Send money order and cassette 
to: Vincent P. Gearhart 
9 Church, La Junta , Co I or ado 81050 



ATTENTION HARDWARE HACKERS 
I had a difficult time in find- 
ing 5-conductor (22GA) stranded 
cable and JOYSTICK plugs to com- 
plete various projects, but, 
when I did. I bought in auantity 
I can now supply the DIN plugs 
for $2.75 ea. (US Postpaid) and 
the cable for $3.00/6ft ( US 

Postpaid). Excess postage will 
be refunded on multiple orders. 
HM LaBonville, 121 Camelot Drive 
RFD 5, Bedford, NH. 03102, 603- 
472-3369. 



Programs for sell with original 
documentation and are like new. 
For those interested in these 
programs, please include $2 for 
First Class Mail. Here is the 
list: 

Nelson Super "Color" Terminal 
Rompack (uses all 64K and up 
to 80 characters across) asking 
$50. R/S EDTASM+ Rompack asking 
$35. R/S Project Nebula asking 
$20-Rompack. R/S Space Assault 
asking $15-Rompack. Ghost Gob- 
bler (cass 16K) asking $10. Don- 
key King (cass 32K) asking $15. 
Protectors (cass 32K) asking 
$15. Zaksund (cass 32K) asking 
$18. Pyramid Adventure R/S (cass 
16K) asking $10. Masterwriter 
(up to 64K excellent cassette- 
based word processor )aski ng $18. 

Send order to: Fred Kotynski, 

1336 E. Elm # 10, Griffith, IN 
46319. (219) 923-0584. 
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COCOTAPE 



A Machine Language Tape to Read 
Examine and Copy Machine Tapes 
On Cassette: For Members - $7.95 

Send to: Steve Abrams, 1600-44th 
Avenue, San Francisco, CA 94122 
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ 
u n f 1 1 n u f n ii f n i n n n i iff n i if n n mm 

FOR SALE. Two Brand New ROMpack 
Cartr idges! ! ! ! ! Sold at very low 
Prices!!!!!!!!!!! COLOR SCR I PS IT 
can be acquired for a greater 
than 35? discount (under Radio 
Shack's Prices) !!!!!!!!!!!!!!!!! 
It is now only $25.00!!!!!! Also 
DINO WARS is being sold at a 
greater than 49? discount (also 
under Radio Shack's prices)!!!!! 
This is only being sold for $15. 
Buy now while supplies last!!!!! 
Send Check or Money Orders To: 
Stephen Rosenfeld, 88 East 
Greenbriar Drive, Deerfield, III 
Zi p=6001 5 ORDER NOW 

©©<gx&©©©©©©©©©©^ 

FOR SALE- TRS-80 Model I Monitor 
and RS CTR-40B cassette machine. 
The monitor can be used as a B&W 
display with the CoCo. I wi I I 
furnish the very simple info to 
do so. The CRT-40B can also be 
used with the CoCo. Both are in 
excellent condition. Prices..... 
$60 for the monitor, $25 for the 
recorder, or both for $75. Cal I 
or write: Clay Howe, 310 S. Jef- 
ferson St., Sturgis, Ml 49091 - 
616-651-4248. 

€>©€)©©©€>©©€>€>©©©©©©©€>©©©©©€)€)©©€>©©© 
FOR SALE 

I have a Radio Shack Line Print- 
er VII - With Dust Cover & 4 pin 
Din Cable. Purchased in Feb 1982 
$225.00- includes Shpg. & Insur. 

Contact: Charles M. Thonen, P.0. 
Box 666, Ft. Greely, AK 98733. 
Phone 907-895-3804. 

Will mail when personal check 
clears or at once if payment is 
Money Order or Certified Check 



$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 
I am interested in starting a 
Software / Hardware business. 
Please send me information on 
becoming a Dealer /Distributor 
for your products along with 
price lists and product descrip- 
tions. Send to: Art Hotes, 1200 
Mulberry Lane, Brunswick, Ohio 
44212. 

$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 
New Software with High Resolu- 
tion Graphics (requires 32K Ex- 
tended). Buy 1 for $10.00 and 
get 1 FREE! Shuf f I eboard , Bingo, 
Monopoly, Black Jack, and Five 
in a Row. Send orders to: Ronald 
Tamblyn, RR # 3, Bowmanville, ON 
L1C-3K4 — CANADA, 
tttttttttttttttttttttttttttttttt 
I I I I I I I I I I I I I I I II I I I I I I I I I I I I I I I 
! ! FOR COCO OWNERS ONLY!! Uncon- 
ditionally Guaranteed. Quality 
C-60 Computer Cassette Tapes. 
Only $4.50 per Dozen (in Dozen 
Lots). Postage Paid in the U.S.A 
Hurry! Order Now! Offer good 
while supply lasts. Rush check 
or Money order To: Ames Outlet, 
RD. 2, Box 208, New Ringgold, PA 
17960. Allow 4-6 weeks delivery 
1 1 1 1 I II 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 

(gKf^®<g)<g)(gKS^(gK!!>®^ 

FOR SALE — 1 Radio Shack DMP- 
100 Printer (Used 4 months). 
Comes with Dust Cover and 1 
New & 1 Used Ribbon Cartridge 

and RS Color Scripsit Cartridge. 
Cost is $325.00 - includes ship- 
ping & Insurance. For more In- 
formation call: Peter B. Howell, 
19 Dubois Road, New Paltz, N.Y. 
12561. (914) 255-1737. 

Looking for another Color Com- 
puter nut who would be interest- 
ed in trading some of their CoCo 
software with me. Write with a 
list of what you would like to 
swap. I'll write back to you. 
Write to: Jeff White, RR1 Cedar 
Hill, Prairie du Chien, WI 53821 
Thank You ! ! [ 



FOR SALE OR TRADE (Originals) 
Radio Shack VIDEOTEX, Cognitec 
TELEWRITER, and Radio Shack 

COLOR SCR I PS IT, 

WANTED***** Business Software 

Oontact: Michael H. Kwas, 3908 
Milan SW, Wyoming, Ml 49509 

oooooooooooooooooooooooooooooooo 

_o o OOOOOOOQOOOOOOOOOOOOOOOOOOOOOO 

The Green 



oWfes* 



Dragon 



D- 15, Charles 
Char I eston, 
most complete 
puter software 
3 States (SC, NC, 



located in space 
Towne Square, in 
S.C. carries th 
I i ne of Color 0om-| 
& hardware In 
and GA) * 




Free T-Shirt to first 5 people 
from each state who buy 
tlckltl 



LONG BEACH 



1 



VISA & Mastercard Phone orders! 
are accepted at (803) 744-8783] 

from 10AM to 10PM Monday to Sat- 
urday. Ask for Bill Sides, Mngr . 
and proud owner of a "C" Boardl 
OoCto # 715. He is as much into! 
the OoOs as anyone else. Times" 
are listed in EST. 



The fun and excitemenl of RAINBOW- 
lest is coming your way and now there 
will be a RAINBOWfest near you! 

For the 1983-04 season, we've scheduled 
four RAINBOWlosts in four parts of the 
country Each one will offer fun, excite- 
ment, new products, seminars and infor- 
mation for your CoCo! And for those who 
(perish the thought) don’t like CoCo as 
much as you, we’ve scheduled each RAIN- 
BOWfest in an area that will provide fun 
and enjoyment for the whole family 
Just look at this great lineup: 

Long Beach, California — February 17- 
19. What a way to get away from the winter 
doldrums! And what better place than sun- 
ny Southern California with thousands of 
fellow CoCo owners! Fly with CoCo to the 
sun for the winter. Top flight seminars will 
draw on many local CoCo experts 

RAINBOWiest— Long Beach 
DATES: Feb 17-19. 1984 
HOTEL: Hyatt Regency. Long Beach 
ROOMS: $59 per night single/double 
KEYNOTE Bob Albrecht 



M S a holiday weekend, loo -- so take Mon- 
day off and tour Disneyland. Universal 
Studios, Manneland, the Queen Mary and 
Hollywood' 

New Brvntwlek, New Jersey — March 30- 
April 1 

RAINBOWiest comes to the populous north- 
east! It's a close drive from New York. Boston. 
Philadelphia,. Washington. Baltimore and 
Long Island 

Chicago —June 22— 24. Well play RAIN- 
BOWfest again, CoCo! This is the site of 
CoCo's very first show this spring. And 
nght next to the world’s largest indoor 
shopping mall 

Every show will be held at a Hyatt- 
Regency Hotel end all will be offering spe- 
cial rates for RAINBOWfest Every show 
will open at 7—10 p.m. Friday, run 10 

RAINBOWfest— New Brunswick, N.J 
DATES: March 30— April 1 
HOTEL. Hyatt Regency New Brunswick 
ROOMS: S59 per night single/double 
KEYNOTE To Be Announced 



a m —6 p.m. Saturday and close with an 1 1 
a m.— 4 p.m. session Sunday. Each will 
have a CoCo Community Breakfast featur- 
ing an outstanding national speaker from 
the Color Computer World. And each exhi- 
bition will be Interspaced with a number of 
seminar sessions on all aspects of CoCo 
—from writing in machine language to 
making your basic work better. 

But most of an, there will be exhibitor?. 
Lots of them. All ready to demonstrate 
products of every kind. Some with special 
programs and hardware items to Intro- 
duce. Others with show specials. 

Tickets can be secured directly from the 
Rainbow. We'll also send you a special res- 
ervation form so you can get your special 
room rate. 

Come to RAINBOWiest . . . help us all 
celebrate CoCo Community at Its finestl 

RAINBOWfest— Chicago 
DATES: June 22— 24. 1984 
HOTEL: Hyatt Regency Woodfield 
ROOMS $46 per night single/doubfe 
KEYNOTE: To Be Announced 




Advance Ticket Oeadlme Feb. 13. 1984 Advance Ticket Deadline March23.l984 Advance Ticket Deadline: June 18. 1984 
Walter Taxi service avail, from the hotel to the Queen Mary 



3 , 0 Wfes/ 



YES. I'm coming to RAINBOWiest m 

□—Long Beach 

Piease send me 

three day tickets at $8 each total 

one day tickets at S6 each total 

breakfast tickets at $1 1 each total 



□ — New Brunswick 



□—Chicago. 



RAINBOW- 
fest Long I 
Beach 



FREE RAINBOW 
POSTER For 

First 200 Tickets Ordered. 

Make checks payable to. 
the Rainbow 
MAIL TO- 
RAINBOWfest 
P.O. BOX 209 
Proapect, KY 40059 



Handling Charge $1.00 

TOTAL ENCLOSED (U S FUNDS ONLY PLEASE) $ 

■Also send me a hotel reservation card lor 

□—Long Beach □ — New Brunswick □— Chicago 

NAME (please print) 

STREET & NUMBER 

CITY & STATE . 

T ELEPHONE -ZIP CODE 

COMPANY 



Orders sent less than two weeks prior to show opening will be held for you at tha door 
VISA. MasierCharge. American Express accepted 

My Account » Ex Date 

Signature 




Member of the ICCC, Inc. *World's Largest CoCg._C.Lub* 



Seminar Program And Speakers 

Don Inman Using And Teaching LOGO 

Don is one of the most respected names in the Color Computer field 
and an expert on graphic techniques in both BASIC and assembly 
language. His Using Graphics column appears monthly in the 
Rainbow. 

Phil Kitchen Radio Shack Software Support 

Manager of Software Support for Radio Shack, Phil will explain how 
the Tandy third party software support program works and answer 
questions about how Radio Shack can be of assistance to authors. 

Paul Searby Software Theft 

Martin Goodman 

A panel discussion of one of the most important issues in the CoCo 
field with Mr. Searby of Computerware and Dr. Goodman of Cheshire 
Cat Software. 



Linda Nielsen Women’s Programs 

Linda, o f Morotor Bay Laboratory, and several others active in the 
CoCo area, will lead a discussion on women's involvement in com- 
puting in general and the Color Computer in particular. Theme of the 
program: lt‘s Not A Man * s World. 

For women and men who view computers mainly as an annoyance, a 
special seminar is planned on the general topic How To Live With A 
Computer At Home 

Bill Nolan Fantasy Gaming And CoCo 

DungeonMaster, programmer and Rainbow Columnist, Bill has 
developed a complete Dungeons and Dragons program for CoCo. 

^'. m Writing For Rainbow 

Jim, Managing Editor of the Rainbow, will talk about how you can 
submit programs and articles to magazines for fun and profit. 

AND: A special session on assembly language programming 
and more to be announced later 



PLUS . . . RAINBOWfest’s “CoCo Community” 
Breakfast featuring Bob Albrecht, Popular 
Author and RAINBOW columnist 

Additional seminars are planned as well. Admission to all seminars is at no charge. See registration form for 
admission prices to exhibit area and breakfast. 



COME TO RAINBOWfest LONG BEACH — IN SUNNY'SOUTHERN 

CALIFORNIA 



Advertiser’s Index Continued from Page 112 
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B5 Software 111 
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Chromasette 105 
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E.A.P. Company 45 

Hardware-Software Interface 84 

Hawg Wild Software 115 

Hawkes Research Services 39 

Kimszal, VW 54 

Leader Sales Corporation 113 

MicroCom Software 86 

Oregon Color Computer Systems 18, 44 

Owl-Ware 99 

PBK & Associates 47 

Rainbow Connection Software 79 

RAINBOW Magazine 95 

Rainbow On Tape 82 

RAINBOWfest 119 

S & S Arcade Supplies 109 

Saguaro Software 9 

Sav-A-Byte 55 

Spectrum Projects 47, 48 

Sunshine Software 19 

TS Printing 52 
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50590 DRAW"BR8U16NL6R6BR4BD16" :RE 
TURN: 'T 

50600 DRAW"BU3NU1 3F3R6E3NU1 3BD3BR 
4" :RETURN:'U 

50610 DRAW'BUI 6D1 0F6E6U1 0BR4BD1 6" 
: RETURN : ' V 

50620 DRAW"NU16E6F6NU16BR4":RETUR 
N : ' W 

50630 DRAW"U2E1 2U2BL1 2D2F1 2 D 2 B R 4 " 
: RETURN : ' X 

50640 DRAW"BR6U10NH6E6BD16BR4" :RE 
T U R N : ' Y 

50650 DRAW'NRl 2U2E1 2U2L1 2BR1 6BD1 6 
" : RETURN : 1 Z 

50660 DRAWNR6U1 6R6BR6BD1 6" : RETUR 
N : ' C 

50670 DRAW'BUI 6D2F12D2BR4": RETURN 
: ' > 

50680 DRAW'BUI 6BR2R6D16L6BR1 4": RE 
TURN : ' ] 

5 0690 DRAWBR6U1 6NG6F 6BD1 0BR4" : RE 
TURN : ' 

PROGRAM USES 2951 BYTES 



THIS SUBROUTINE PREVENTS THE 
COMPUTER FROM TRYING TO PRINT 
TO THE PRINTER, IF THE PRINTER 
IS OFF OR DESELECTED. 



48000 IF (PEEK (6531 4) AND 1)=1 THE 
N PRINT "PRINTER NOT R E A D Y " : P R I NT " 
HIT ENTER WHEN READY" ELSE RETURN 

48010 Z$ = INKEY$: IF Z$ = "" THEN 480 
10 

48020 GOTO 48000 



Continued from Paqe 5 

Getting back to what's ahead in 
1984, look for MORE DISCOUNTS... 
A BIGGER (and BETTER) NEWSLETTER 
MORE SUPPORT, MORE PROGRAMS, and 
on the BBS, MORE DOWNLOADS fast- 
er access, and EASIER USE. To do 
all this we need MORE INPUT from 
YOU! Send in your programs, let- 
ters, articles, mod's etc., and 
share them with the WORLD. 

Until next issue 
Ron Garrett 



What’s your best source 
of information on 
color computing? 




Now you can improve your color computing 
skills. . . and it’s easy to do. HOT CoCo gives you 
more practical information on the TRS-80 Color Com- 
puter* than any other publication. Nearly 150 pages a 
month! 

Every issue is packed with exciting new things for 
you to do. We wont waste your time with filler 
stories. You’ll get instructive columns: 

•Elmers Arcade — enjoy old-fashioned arcade style 
games on your computer 
•The Educated Guest — discover how to use your 
computer as a teaching tool 
•Doctor ASCII — get answers to your technical 
questions 

•Graphically Speaking — create eye-catching 
designs that add appeal to your programs 

You also get a dozen easy- to-understa nd articles 
every month. Games. . . utilities. . .programming tech- 
niques. . .tutorials. . .graphics. . education. . .hard- 
ware projects. They’ll help you expand what you can 
do. And complete program listings show you how to 
use what you learn. 

That’s not all. HOT CoCo saves you money too: 
•Candid reviews help you make ever}’ purchase a 
sound investment. 

•Informative ads let you comparison-shop from 
home. 

•New-product announcements tell you what’s 
available before it reaches the stores. 

With all this at your fingertips, your subscription 
could pay for itself with one wise purchase. 

And HOT CoCo is risk-free. If you don’t like your 
first issue, just write “cancel” across the invoice and 
return it to us. You won’t owe a thing. 

Subscribe to HOT CoCo today. Twelve big issues are 
only $24.97. Simply fill out the coupon and return it 
right now to: HOT CoCo Subscription Dept., PO Box 
975, Farmingdale, NY 11737. 



r 






* TRSSO Color Computer is a registered trademark of 
the Radio Shack Division of Tandy Carp. 



YES! Help me improve my computing skills. Send me 
12 issues of HOT CoCo for $24.97. I understand that 
with payment enclosed or credit card order I will receive 
a FREE issue, making a total of 13 issues for $24.97. 

Get a 13th issue FREE when you enclose payment or charge 
it on your Mastercard , VISA , or American Express. 

Canada 6 Mexico $27.97/1 yr. only, U S. funds drawn on U.S. bank. 

Foreign Surface $ 44.97/1 yr. only , U.S. funds drawn on U.S. bank. 

Foreign Airmail please inquire. Please allow 6 -8 weeks for delivery. 

□ CHECK/MO □ MC □ VISA □ AE 
□ Bill Me $24.97 for 12 issues. 



| Card# 

1 Signature. 



_Exp. Date. 



Name. 



I Address. 



I 



City. 



. State. 
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j HOT CoCo • PO Box 975 • Farmingdale. NY 11737 
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International 
Color Computer Club, Inc. 

2101 East Main Street § Henderson, Texas 75652-3399 



BULK RATE 
U. S. POSt AGE 

PAID 

Henderson, Texas 
PERMIT No. UO 
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Milt Poulos 

534 Ryerson Ave. 

Wood -Ridge, N J . ^ < k - 



Address Correction Requested 

Please Forwar d 
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